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ABSTRACT 


The  design  and  implementation  of  the  A|_GUL  -M  oroyramminq 
language  for  use  on  a microprocessor-based  system  is 
aescrioed.  The  i «c 1 emen t a t i on  is  comori sea  of  two 
suosystems*  a compiler  which  generates  code  for  a 
hypothetical  zero-adoress  machine  and  a run-time  monitor 
which  executes  tnis  code.  The  system  was  implemented  in 
PL/^  to  run  on  an  oOtiO  microcomputer  in  a diskette-based 
environment  with  at  least  d Oh  bvtes  of  user  storage. 
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I.  introduction 


A . HISTORY  OF  ALGOL 

The  definition  of  the  alaorithiuc  1 anouage  (AlGUL-60) 
was  the  result  of  the  work  of  a committee  of  d i st i nou i shed 
computer  scientists  ana  was  originally  oublished  in  l°o0 
1111.  The  ourpose  of  the  aevelopers  of  ALGDL-bO  was  the 
es t ao ' i shmen t o * a universal  computer  I anouage  specifically 
Designed  to  a’low  for  the  logical  and  efficient  orogram 
represent  at i on  of  algorithms.  Additional  versions  and 
extensions  of  ALGOl-oD  such  as  ALGOl “bft  llbl  and  AlGOL-h 
l lo)  hdve  oeen  developed  and  have  found  acceptance  primarily 
in  the  academic  communities  and  in  Furooe.  The  I anquage 
AI.GOL-t  1101  is  also  based  on  ALGPL-bO  and  was  developed  as 
part  of  a complete  system  designed  tor  teaching  programming 
language  concepts. 
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d.  MTCRuCOifPlJTFH  b 0 F T » A H F 

The  rapid  development  of  microcomputer  haroware  since 
lQ7S  has  aenera'lv  resulted  in  a c ons  i de  r at)  1 e lag  in  the 
cor respond i ng  development  of  compatible  software* 

particularly  that  gf  high  level  languages.  The  Intel  bOnC 
microorocessor  is  one  o * the  ♦ e w mjproDrocessors  w h i c n has 
engureo  long  enouah  to  permit  software  development  to 
advance  beyond  assembly  1 anouage  level.  High  level 


languages  which  have  been  developed  tor  6080  cased  systems 


dv  students  at  the  Naval  postaraduate  School  include  a macro 
assembler  (M|_-a0l  ll<?l*  a BASIC  comoi  ler/interpreter 
iPASiC-F)  { 6 1 * and  a rop(JL  comp i 1 er/ i nterpreter  MTC°0- 
C^BOl)  f <?  1 • The  maiority  o*  h j ah  level  I anouaqes  currently 
available  tor  m i c roccmpu t e r based  systems  are  extensions  ot 
the  oriainal  Dartmouth  BASIC  and*  although  tney  allow  tor  a 
reasonable  level  ot  nroqrammino  sophistication,  tKev  are 
encumbered  by  the  inherent  limitations  ot  toe  BASIC 
lanauaqe  constructs. 

C.  OPJFCTIVES  OF  ALGDL-V 

The  major  objective  ot  this  project  was  to  aeveloo  a 
dynamic*  C 1 oc k -S t rue t u red , recursive  nigh  level  lanquagp 
whicn  would  provide  adequate  orogrammina  Dower  and 
flexibility  for  applications  rroqramrnina  usina  microcomputer 
based  svstems.  ALGOL  constructs  were  chosen  because  ot 
their  simplicity  ano  cower  and  because  it  was  possible  to 
write  the  grammar  in  LALPM)  <orm  tor  use  w i * h available 
comp  i 1 er-c  omp  i 1 * r oenerated  rars»  tables  11*0.  ALOijl  was 
developed  to  run  on  BOBO  based  microcomputer  systems  because 
ot  the  availability  nf  a htqh  1 evr I svstem  revel ooment 
1 anouage  ( PL /M ) 1*1  „ h i c h o roouc *s  9 0 B o oBieet  code  and 
which  could  oe  run  on  tn«  Vava’  °ostoraouate  School’s  ItiM 
360.  The  availability  o*  an  BOBO  based  disk  operatina 
system  ( C P M ) (131  simulator  rn  the  I H M 360  was  a!so  a 
Strona  factor  in  fme  choice  ot  S0B0  m i c r or  roc e s so r and  CP/V 
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TI.  AI.GCL-M  LANGUAGE  T>ESCDlDTTuN 


A.  FEATURES  OF  THE  algol-m  language 

Although  alGUI -m  was  modeled  after  ALGUL-bu,  no  attempt 
was  mane  to  m a « « it  a f o r m a ) subset  of  ALGOL-bO.  This  was 
done  intentionally  in  onaen  to  rrovide  a 1 anguaae  which 
would  oe  hpst  suited  to  the  nemos  o*  applications 
Droaraitmens  using  m i c r oc  o"»ou  t e r systems.  hcw»ver,  the  basic 
structure  of  ALGPL-H  is  similar  »nouon  to  »LGUL-bG  to  allow 
simple  conversion  of  croanams  from  on  ->  1 anguaae  to  the 

other.  This  was  ccrs'aered  pa  r *■  i c u 1 a r 1 y important  in  view 
of  t n e fact  that  the  standaro  publication  language  is 
ALuOL-oO.  Therefor®,  there  exists  a large  source  of 
applications  programs  ang  Horary  procedures  whicn  can  pe 
simplv  converted  *o  execute  unaer  ALGOL-*1. 

1.  Tvpe  declarations 

ALGOL-H  supports  three  tyres  of  variables:  integers, 
decimals,  and  strinas.  1 nt  sot  rs  may  pe  any  value  between 
-lb,38u  ang  ♦10,3*4.  Decimals  nav  be  declared  with  up  tQ 
digits  of  orecision  and  s^inns  may  oe  declared  as  long  as 
2^5  characters.  The  ce fault  precision  for  decimals  is  ten 
digits  and  the  default  length  for  strinas  is  ten  characters. 
Decimal  and  St  ri no  variaple  1 “not^s  may  pe  inteoer  variaPles 
which  can  p « assioneo  actua1  values  at  run-rime. 

Another  form  of  declaration  in  A LGUl  -*1  is  the  array 

I 1 


declaration.  Arrays  irav  nave  up  to  ?S5  dimensions  with 
each  dimension  ranqino  *rom  -lo,38B  to  ♦16»38<i.  The  maximum 
8080  m i c roorocesor  address  soace  of  64k  ovtes  limits 
practical  array  sizes  to  somethinq  smaller  f nan  the 
maximum.  Dimension  bounds  mav  he  integer  variables  with  the 
actual  values  assigned  at  run-time.  Arrays  may  be  of  type 
integer#  decimal  or  strino. 

2.  Arithmetic  Processing 

Integer  and  binary  coded  decimal  arithmetic  are 
supported  under  ALGCL-M.  Tnteoers  may  be  used  in  decimal 


expressions 

and  w i 

11  be  con  ve  r t eci 

t o dec i »a 1 s 

at  run- 

time. 

The  i nteoer 

and 

dec i »a 1 

comoa  r i sons  of  1 

ess-t  han 

(<)  , 

greater-th an 

<>), 

ecua 1 -t  o 

( = ) , 

not -eoua 1 - 1 o 

(<>1  , 

less- 

t han-or-eaua 1 -t o f<  = J,  and  oreater-t nan-or-eaual -t o (>=1  are 
provided.  Additionally#  the  looical  operators  and,  OK  and 
WOT  are  ava i 1 ao 1 e . 
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3.  Control  Structures 

ALGOL-M  control  structures  consist  of  BEGIN,  tKI0 , 
FOR,  IF  THEM,  IF  THEN  ELSF,  rtHILE,  CASE  and  GOTO  constructs. 
Function  and  procedure  calls  are  also  used  as  control 
structures.  ALGOL-M  is  a block  stuctured  1 anguaae  with  a 
block  normally  bracketed  Hy  a dFGTN  ano  an  FnO.  Blocks  mav 
oe  nested  within  otner  ‘'locks  to  nine  levels.  Variables 
which  are  declared  within  a olock  can  only  oe  referenced 
within  that  block  or  a block  nested  within  that  block.  unce 
proaram  control  proceeds  outside  o*  a block  in  whjrh  a 
variable  has  been  declared,  tne  variable  may  not  oe 
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variable 


tne  variable  may  not 


referenced  and#  in  fact#  run-time  storage  snace  for  that 


i 

l 


i 

i 
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variable  no  lonqer  exists. 

Functions#  when  called#  return  an  inteaer,  decimal 
or  strina  value  decenaino  on  the  tyre  of  the  function. 
Procedures  do  not  return  a value  when  cal  lea.  both 
functions  and  procedures  may  have  zero  or  more  parameters 
which  are  call  by  value  ana  both  may  be  called  recursively. 
Addi t i onal 1 v#  functions  and  orocedures  may  be  referenced 
before  they  are  declared. 

*4.  Input/Outout 

The  ALGHL-M  a P I T £ statement  causes  output  to  the 
console  on  a new  line.  The  oesi r»o  outout  is  scecifiea  in  a 
write  list  which  is  enclosed  in  parentheses.  btrina 
constants  may  be  usee  in  a write  list  and  are  characterized 
dv  beina  endosea  in  Quotation  marks.  Any  comoi  nation  of 
integer#  decimal  anc  strina  variables  or  expressions  may 
also  be  used  in  a write  list.  A R I T FT  0 N statement  is  also 
available  which  is  essentially  the  same  as  the  V»KTTF 
statement  except  that  outout  continues  on  the  same  line  as 
the  outout  from  a previous  i/RITF  nr  aRITEON  statement.  yih^n 
a total  of  HO  characters  have  ceen  written  to  the  console#  a 
new  line  is  started  automatically.  A TAB  option  may  also  oe 
useo  in  the  write  list  which  causes  the  followinc  item  in 
the  write  list  to  oe  soaced  to  the  rioht  by  a soecifed 
amount  . 

Console  input  is  accomplished  by  the  READ  statement 
followed  Dv  a reao  list  of  anv  compination  of  integer# 
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decimal  end  strino  va^iaoles  enclosed  in  parentheses.  If 
embedded  blanks  are  desired  in  the  inou»  tor  a strino 
variable/  the  console  mout  must  be  enclosed  in  ouotation 
marks.  A HEAD  statement  will  result  in  a halt  in  orogram 
execution  at  run-time  until  the  incut  values  are  tyDed  at 
the  console  ano  a carriaoe  return  is  sent.  If  the  values 
typed  at  the  console  match  toe  read  list  in  number  and  tyoe, 
program  execution  continues.  If  an  error  as  to  numoer  or 
tvoe  of  variables  from  the  console  occurs/  program  execution 
is  again  halted  until  values  are  re-entered  on  the  console. 

5.  Disk  aceesS 

ALGnL-M  proorams  may  read  data  from.  or  write  data 
tOi  one  or  more  disk  files  which  may  be  located  on  one  or 
more  disx  drives.  dhen  file  incut  or  outout  is  desired/ 
the  appropriate  READ  or  fl&IT£  statement  is  modified  oy 
placing  a filename  icenti  Her  immediately  after  READ  or 
rtEITE.  The  actual  name  o*  the  file  may  be  assioned  to  the 
file  name  identifier  wnen  the  proaram  is  written  or  it  mav 
oe  assigned  at  run-time.  Various  disk  drives  are  referenced 
ov  the  letters  A through  Z.  A specific  drive  *ax  oe 
specified  ov  orefixinc  the  actual  fil*  name  with  the  desired 
drive  letter  followed  bv  a colon.  Aodi t i ona I 1 y / if  random 
file  access  is  desired/  t * e * i 1 e name  identifier  may  be 
followed  by  an  integer  constant/  variable  or  expression 
enclosed  in  parentheses.  This  integer  value  specifies  the 
record  within  the  file  which  is  to  be  used  for  i nru f /©u t pu t . 

Prior  to  the  use  of  a file  name  identifier  in  a READ 

1 a 


r r 1 

Of*  WRITE  statement,  the  fils  name  identifier  must  aopea  r in 
a file  declaration  statement.  The  file  nare  identifier  can 
only  be  referenced  within  tKe  same  block  for  a lower  dIock) 
as  the  file  declaration.  Files  are  normally  treated  as 

i 

unD locked  sequential  files.  However,  if  blocked  files  are 
desired,  the  record  length  may  ootionally  be  srecifieo  in 
parentheses  after  the  file  name  identifier  in  the  file 
declaration  statement. 
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IMPLEMENTATION 


A.  COMPILER  IMPLEMENTATION 

1.  Compiler  Oraanizaf ion 

The  comoiler  ties  designed  to  reart  source  1 anauage 
statements  from  a diskette  ana  to  produce  an  intermediate 
lanouage  file  with  optional  source  listino  at  the  console. 
A two  pass  approach  was  used  to  facilitate  the 
i mp I ement at i on  of  GOTC  statements*  forward  subroutines*  and 
control  statements.  Pass  on*  builds  the  symbol  table  and 
saves  all  branch  locations  for  resolution  ourina  pass  two. 
Pass  one  also  computes  the  sire  of  the  program  reference 
table  (PPT)  and  writes  this  information  out  to  th* 
intermediate  file.  Pass  two  resolves  all  forward  references 
and  emits  code  to  the  intermediate  file  on  disk. 

2.  Scanner 

The  scanner  analyses  the  source  prooram  ana  sends  a 
sequence  of  tokens  to  the  parser.  Tn  addition,  the  scanner 
provides  a listing  cf  the  source  file  (if  requested), 
ionores  remarks,  and  sets  the  compiler  toagles.  Analysis  of 
the  first  non -b 'an*  character  in  the  inout  file  determines 
the  qeneral  class  of  the  next  token.  The  rest  of  the  token 
is  then  scanned  as  it  is  placed  into  the  accumulator 
(ACCUM).  The  first  bvte  of  AC C"M  contains  the  length  of  the 
toxen.  In  the  case  of  constants  that  exceed  the  size  of 
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ACCI'M  (32  bytes)  a continuation  f 1 aa  is  set.  This  permits 
the  scanner  and  parser  to  continue  as  necessary  to  accept 
the  entire  constant. 

when  the  scanner  recognizes  an  identifier  it 
searches  the  vocabulary  table  fVHCAB)  to  determine  if  the 
identifier  is  a reserved  word.  If  found,  the  token  number 
associated  with  the  reserved  word's  Position  in  the  V0CA8 
table  is  returned.  The  reserved  word  COMMENT  is  a special 
case  since  it  is  not  oart  of  the  grammar  ana  is  hangled 
entirely  by  the  scanner.  The  VQCA6  table  is  r.ie  of  tne 
taoles  orovided  bv  the  I.ALRTI)  oarse  table  generator  11  a)  . 

Constants  are  passed  unconverted  from  the  scanner 
through  tne  parser  tc  the  intermediate  fil».  Although  this 
procedure  ones  not  allow  constant  checking  during  compile 
time,  it  does  save  soace  in  the  compiler.  The  conversion 
routines  must  oe  in  the  run-time  system  for  console  inou' 
and  their  duplication  in  the  compiler  was  not  considered 
necessary . 

3 . Symbo 1 Table 

The  symbol  table  stores  attributes  of  prooram  and 
compiler  aererateri  entities  such  as  identifiers,  procedures, 
and  labels.  The  symbol  table  is  constructed  durina  oass  one 
and  the  stored  information  is  used  by  the  compiler  during 
pass  two  to  verifv  that  the  proaram  is  semantically  correct 
and  to  assist  in  code  generation.  Access  to  the  symbol 
table  is  accomrlisheo  throuoh  various  subroutines  which 
operate  on  tKe  svmbol  table  through  the  use  of  based  global 
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The  symbol  table  is  modeled  after  the  BaSIC-£  svmbol 
table  (6l  . It  is  an  unordered  linear  list  of  entries  which 
grows  toward  the  too  of  memory.  Individual  entries  are 
accessed  via  a chained  hash  addressing  techniaue  as 
illustrated  in  Pioure  1.  £ach  location  in  the  hash  table 
heads  a linked  list  whose  printnames  all  evaluate  to  the 
same  hash  address.  If  there  is  a zero  in  the  hash  table 
then  there  are  no  entries  for  that  particular  hash  value. 
During  references  to  tne  symoel  table,  the  global  variable 
PPININAV£  contains  the  address  of  a variable  whien  contains 
the  lenoth  of  the  variable  name  followed  by  the  name  itself. 
The  variable  SY^HASH  contains  the  sum  of  the  ASC1T 
characters  that  mane  un  the  variable  name,  modulo  bu. 
Entries  which  hash  to  the  saw*  va’ue  are  chained  so  that  the 
latest  entrv  is  the  first  one  on  the  chain.  Thev  are, 
however,  stored  in  the  svmbol  table  in  the  oroer  in  which 
thev  aooear  in  the  program. 

tach  entry  in  the  svmhol  table  contains  the 
following  information! 

lenath  of  pri  ntnaire  1 byte 

collision  field  ? bytes 

printname  variable  lenath 

type  1 hyte 

address  ? bytes 

plocklevel  I hyte 


1 8 


suot  yoe 


i byte 


L 9 


The  address  field 


indicates 


i dent i f i er ' s 


! 


i 


the 

position  in  the  PP  f unless  the  identifier  is  a label.  For 
labels#  it  indicates  the  laDel's  position  in  the  cooe  area. 
For  subroutines#  there  are  two  extra  symbol  table  entries? 
a parameter  field  which  indicates  the  number  of  parameters 
associated  with  the  subroutine  fl  bvte)#  and  another  aadress 
field  which  indicates  the  oosition  of  the  suproutine  in  the 
code  area. 

Since  ALGOL-M  is  completely  block  structured#  there 
is  a block  number  associated  with  each  identifier  in  tne 
svmbol  table.  A "orevious  block  level  stack"  was  designed 
in  oroer  to  retain  the  symbol  taole  for  debuaaing  purposes 
aurina  run-tire.  Each  active  block  is  used  as  an  index  into 
this  stack  which  contains  all  blocks  to  which  the  active 
block  is  subordinate.  When  a dock  is  deactivated  (i.e.# 
the  co r respond i no  block  end  is  encountered)#  the  block 
number  is  removed  from  the  orevious  block  stack  and 
therefore  any  identifiers  associated  with  that  block  become 
inaccessible. 

Two  different  lookup  routines  were  designed  to 
facilitate  svmbol  tade  lookup.  The  first  is  FuLLSLOuKuP 
which  searches  the  current  block  and  all  outer  blncks  for  an 
identifier.  The  second  is  NOPMiLPLOOhljP  which  simply  checks 
the  current  dock  leve|.  In  most  cases#  FuLL TLOUkyP  is 
used  to  determine  if  an  identifier  beina  usea  has  been 
declared  and  UORMAL  51  GOhijP  is  used  to  determine  if  an 
identifier  beinq  declared  t>a s he»n  previously  declared  in 
the  same  block  level. 
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Th*  lAL°  C#M»r  i « ~-,T  *'•<  • *-• 

parser  lot,  .Mr«  is  a -■  v"  k.1,  I * 

receives  totems  ♦re*  in  sc«»nn*r-  »re  .i*i  tv*  t - 

determine  i * tn«y  ere  par*  of  t**  At  jOl**’*  gra»<*ar.  i.v*  »ne 
parser  accents  a token,  one  of  t Ke  following  actions  will 
oe  taken.  It  ^av  save  t * e ("im  a*a  corinvi^  *0  accept 
tokens  in  t*e  lookahead  sta*e»  or  it  *av  recoan*ie  tne  rmhi 

parr  of  one  o * the  valid  productions  and  apply  the  j 

production  state  (’cause  a reduction  to  r«aite  p'ace).  finally  j 

the  parser  mav  determine  mat  the  tokens  received  do  not 
fore  a valid  riaht  oart  for  a production  in  the  grammar  and 
cause  a svntax  error  io  tie  printed. 

when  an  error  is  detected  irECOkEH  is  called  ana  the 
parser  backs  uc  a state  with  an  attempt  to  continue  parsina  j 

fro*  that  state.  If  this  fails,  it  continues  to  back  uo 
until  the  end  of  the  currently  bending  reduction  is  reached. 

At  that  point  the  bad  token  is  bypassed  ana  an  attempt  to 
parse  the  followina  token  is  maae  until  an  acceptable  token 
i s found . 

The  major  data  structures  in  the  parser  are  the 
L ALP ( 1 ) parse  tables  and  the  parse  stacks.  The  parse  stacks 
consist  of  a state  stack  and  si*  auxiliary  stacks.  These 
auxiliary  stacks  are  parallel  to  the  oarse  stack  and  are 
used  to  store  information  needed  during  code  oenerat ion. 

The  information  stored  in  these  stacks  includes  variable 
types#  suhtvpes»  and  variable  addresses. 
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5.  Code  Generation 


The  parser  not  only  verifies  the  syntax  of  source 
statements*  but  also  controls  code  oenerat ion  bv  assoc i at i no 
semantic  actions  with  reductions.  When  a reduction  takes 
place*  the  procedure  FYMTHfcSIZE  is  called  with  the 
production  numoer  as  a parameter.  SYNTHESIZE  copies  the 
needed  semantic  information  from  the  parse  stacks  into 
simple  variables  (to  avoid  extensive  subsc r 1 o t i no ) and 
performs  the  appropriate  semantic  action.  This  is 
accomplished  by  the  use  of  a 1 arae  case  statement  with  the 
production  number  as  a kev.  The  syntax  of  the  I anguaae* 
alonq  with  the  semantic  actions  taken*  is  listed  in  Appendix 
E. 

D.  I‘ITEHPRFrFR  IMRLtvE,lT  A T T0M 

1.  But  ' ''inn  the  4l,GQL»m  Pseudo  Machine 

The  AIGPL-M  pseudo  machine*  as  shown  in  Fioure  <2* 
is  a software  emulation  o*  a stac<~oriented  CP'.1  with  an 
instruction  jet  which  is  Particularly  well  suited  for 
execution  o*  ALG^L-H  oronrams.  The  ALGOL-M  interpreter 
is  1 oadea  at  address  1 0 n hex  (as  are  all  executable  proarams 
under  the  FP/m  operating  system)  and  proceeds  to  read  the 
ALGOL"M  intermediate  code  f po"  disk,  constructing  the  pseuoo 
machine  beoininq  at  the  first  *r«e  memory  location.  The 
AlGOL“M  intermediate  code  is  read  into  a buffer  in  IE®  pvt* 
segments.  The  first  two  bytes  nt  the  intermediate  code 
represent  an  intener  value  equal  to  the  number  of  hytes 


to  be  used  <o r the  orogra"  reference  table  fPRT).  Each  PRT 
location  is  two  bytes  in  length  and  is  used  to  contain 
information  relative  to  ALGHL-M  prooram  identifiers*  arrays* 
and  sub  rout i nes  . 

The  reraininc  intermediate  code  is  manipulated 
in  accordance  * i t h the  aldorithm  shown  in  Fiqure  .1  in 
oroer  to  construct  the  oseudo  machine  cooe  area. 

i. . Overview  of  the  Interpreter 

The  ALGOt-M  interoreter  uses  toe  oseudo  machine  code 
area  as  incut  data.  Each  oseudo  machine  operator  is 
eduated  to  an  integer  value  which  is  evaluated  in  order  to 
provide  the  correct  enfrv  point  into  a larae  case  statement 
in  the  interoreter.  Each  entry  in  the  case  statement 
contains  the  necessary  code  to  cause  proper  run-time 

execution  of  the  specific  ALGO|_-M  pseudo  instruction. 
The  case  statement  is  executed  continually  until  the 
ALGOL-M  orogram  has  been  cnmoleted*  at  which  time  control 
is  oassed  back  to  the  oDsrating  svstem.  A run-ri*e  stack  is 
used  to  facilitate  the  execution  of  ALGPL-M  pseuao 
instructions.  The  stack  can  be  viewea  as  beina  two  nyies 
wide  and  exoanaina  or  contraction  above  the  ALGOL 
machine  code  area  as  necessary.  The  too  item  on  the  stack 
is  addressed  by  the  variable  °A,  while  the  next-tn-tor  irem 
is  addressed  °B.  Tn»  contents  of  the  two  bytes  on  too 

of  the  stack  are  referenced  by  toe  variable  * fc  A while 
the  two  byte  contents  of  the  next-to-top  Stack  position  are 
referenced  by  the  variable  Apy.  The  low  order  bvte 
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GET  NEXT 
BYTE  FROM 
INT  FILE 


STORE  BYTE  PLUS  NEXT  BYTE 
IN  ALGOL-M  PSEUDO  MACHINE 
CODE  AREA 


STORE  BYTE  IN  CODE  AREA, 

READ  IN  ASCII  NUMBERS  UNTIL 
BINARY  ZERO,  CONVERT  TO  TWO 
BYTE  INTERNAL  FORM,  STORE  IN 
AREA 


STORE  BYTE  IN  CODE  AREA,  READ 
IN  ASCII  CHARACTERS  UNTIL  BINARY 
ZERO,  CONVERT  TO  INTERNAL  FORM, 
STORE  IN  CODE  AREA 


STORE  BYTE  IN  CODE  AREA,  READ 
IN  ASCII  DIGITS  AND  DECIMAL 
POINT  UNTIL  BINARY  ZERO,  CONVERT 
TO  INTERNAL  FORM,  STORE  IN  CODE 


"IM1" 


READ  IN  NEXT  TWO  BYTES, 

VALUE  OF  THESE  TO  CODE  BASE, 
STORE  IN  CODE  AREA 


READ  IN  NEXT  BYTE,  STORE  IN 
CODE  AREA 


READ  IN  NEXT  TWO  BYTES, 
STORE  IN  CODE  AREA 


FIGURE  3 
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contents  nf  the  too  and  next-to-too  stack  locations 
ace  referenced  by  the  variables  BRA  and  BkB 
respec t i ve 1 v . lhe  various  stack  variables  are  depicted  in 
Figure^. 

5.  Allocation  of  Storaoe  Snace 

Run-time  sforaae  space  is  reouireo  for  the 

values  associated  witn  ALGOL-M  orogram  identifiers  which 
have  been  declared  as  inteqer,  decimal,  or  string  values, 
ana  for  information  needed  to  process  arravs  and 

suoroutines.  A sequential  number  is  assianed  to  each  new 
identifier  as  it  is  r^coqnited  by  the  compiler.  This  number 
is  useo  to  reference  the  °RT  at  run-time  in  order  to  store 
■ or  retrieve  the  value  associated  with  each  identifier. 


a.  Integers 

Integer  values  range  trom  -lo,3B<4  to  +16»3tiU  and 
are  stored  directly  in  the  two  bvtes  allocated  in  ihe  PRT 
tor  integer  identifiers.  A maximum  lenatb  of  two  Dvtes  for 
integer  values  was  chosen  because  the  resulting  ranne  ot 
possible  inteoer  values  was  considered  adeauate  tor  rhe 
primary  use  of  inteoers  as  proqram  control  counters.  Such  as 
array  subscripts  and  loop  boundaries.  Additionally,  two- 


ovte  values  were 

the  most  conveni 

ent  size  to 

work  w i t n 
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the  implementation 
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oroer  bit 
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one 
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di f ferentat * on  between  int«q?rs  and  other  types  on  tne 
stack.  The  ALGOL-b  internal  form  tor  addresses  is  also  a 
two  bvte  value. 

b . Oec i ma  I s 

Decimal  values  up  to  Id  diaifs  in  length  are 
permitted  in  the  *LGGL-M  1 arquaae.  Fseo  decimal 
identifier  is  associated  with  a unique  PRT  entry.  Tnw  value 
stored  in  the  two  ovte  PPT  entry  reoresents  the  run- 
time address  of  the  location  on  the  ALGOL -M  sfacK  where 
the  actual  decimal  value  is  stored.  fhe  format  for 
decimal  storaae  is  shown  in  Figure  6. 

The  next-to-last  by*e  of  the  allocated  space 
for  decimal  identifiers  contains  the  number  of  ovtes  used 
for  storaae  of  that  value.  This  value  is  a function  of  the 
size  declared  for  the  decimal  bv  tne  orogrammer  and  may  be 
delayed  until  run-time.  A maximum  of  lfl  diaits  of 
precision  may  be  declared  with  the  default  Drecision 
being  ten  digits.  The  first  byte  of  the  decimal  storage 
area  contains  a value  represent ino  the  number  of  bytes 
used  to  hold  tne  actual  Dacked  diaits.  This  value  »av  be 
less  than  the  number  of  bvtes  whicn  could  ce  stored  in  tne 
allocated  area.  In  order  to  save  storaae  soace»  the  decimal 
values  are  oacked  two  digits  rer  byte  of  storage  space. 

ALGOL-M  is  a bloc*  structured  1 arquaae  based 
uo on  a stack  model  for  execution.  Thus>  it  allows  efficient 
allocation  of  storage  for  ' decimal  identifiers.  A 
clock  is  normally  bracketed  by  tne  ALGPL-M  keywords 
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BEGIN 

DECIMAL (12)  X; 
X 123456.78; 
END 


DECIMAL  STORAGE 


FIGURE  6 
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BFGIN  and  END.  Blocks  wav  Be  embedded  within  a higher 


m 


i.i 

i1 

•i 


level  block  as  shown  in  Figure  7.  Identifiers  which  are 
declared  in  a given  block  are  consiaerea  local  to  that 
block  ana  global  to  any  lower  lever  olock  ana  therefore  wav 
be  referenced  fro m those  blocks.  However,  once 
execution  of  an  ®LGOL-M  Droqram  oroceeds  beyond  a given 
block,  the  identifiers  declared  within  tnat  block  may  no 
lonqer  be  referenced  and,  in  fact,  tne  storage  allocated  for 
those  identifiers  is  removed  from  the  ALGOL-M  machine 
stack. 

C . St  r i nos 

Strinos  of  ASCIT  characters  un  to  255  byres  in 
lenath  are  permited  in  ALGOL-M.  In  the  same  manner  as  used 
for  decimal  storaae,  the  strino  identifier  is  associated 
with  a unique  pRT  entry.  The  corresoonaina  PRT  entry 
contains  tne  address  of  the  actual  string  storaoe  space  on 
the  ALGOL-M  stack.  The  format  tor  string  storage  is 
shown  in  Fiaure  8.  The  next-tc-last  byte  of  the  allocated 
storaae  soace  for  a strino  identjfier  contains  the  value  of 
the  number  of  bvtes  actually  allocated  by  the  proorammer  un 
to  a maximum  of  255  bytes.  The  first  byte  of  the 
allocated  strino  storage  area  contains  the  value  of  the 
actual  number  of  ASCII  characters  stored  in  the  allocated 
area.  The  concent  of  storaae  allocation  as  related  to  block 
levels  is  the  same  as  described  for  Decimal  identifiers. 
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STORAGE  FOR 
BLOCK  LEVEL  1 


BLOCK  LEVELS  AND  STACK  STORAGE 


FIGURE  7 
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f BEGIN 

] STRING (9)  TESTWORD; 

! TESTWORD  :=  "HELLO" 

i END 


I 


STRING  STORAGE 


! 

I FIGURE  8 
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d.  Arrays 


i 
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ALG^L-M  arravs  mav  be  of  type  integer, 
decimal,  or  string.  Arrays  may  consist  o*  up  to 
dimensions  with  each  dimension  containino  uo  to  1 h , 3b 4 
elements.  The  uoper  and  lower  hounds  of  each  dimension 
may  consist  o*  any  Positive  integers,  variables,  or 
arithmetic  expressions.  Facn  array  name  is  associated 
with  a unique  T entry.  The  PP  T entry  contains  tne  address 
pointer  to  the  actual  arrav  storage  area  on  the  ALf-OL-M 
machine  stacx.  The  first  part  of  the  array  storaoe  area  on 
the  stack  consists  of  the  displacement  vector  ana  otker 
information  which  is  necessary  to  calculate  the  address  t 

of  any  specific  array  element  at  run-time.  The  format  tor 


array  storaoe  is  shown  in  P\oure  9.  The  allocated  storage 

area  for  each  arrav  element  is  exactly  like  that  used  for 

integers,  decimals,  or  strinas  which  are  declared  as 

single  identifiers.  Tke  algorithm  used  for  cakulatina  the 

displacement  vector  is  exoressed  as: 

f rueu  l,  ()tmi?rwis« 

Di  = - Li+l  vi ) • Di+i 

where  N is  the  number  of  dimensions,  I is  tne 
resoective  dimension,  and  " is  the  unper  oouno  ana  L is  the 
lower  bound  of  a dimension. 

The  offset  vector,  V,  is  calculated  bv. 


V = - 


The  offset  vector  represents 
non-ze ro-c r i g i n subscriots 


ne  correction  necessary  tor 
This  approach  to  locatino 


elements  in  dynamically  declared  arrays  is  essentially  tn» 


same  as  that  used  in  alGOL-P  rioj. 
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STACK 


FIGURE  9 
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Storage  and  Hetrieval  of  Variables 


Once  allocation  of  storaqe  for  variables  has 
oeen  completed  at  run-t  iire<  storaqe  and  retrieval  of  actual 
values  is  relatively  simple.  A cheek  is  first  made  to 
insure  that  the  number  of  bytes  to  oe  stored  is  less  than 
or  eaual  to  the  sforaae  space  allocated  for  a oiven 
variable.  In  the  case  of  strings,  if  the  destination 
storaae  space  is  not  lame  enouqn  to  Hold  the  entire 
strinq,  as  many  characters  as  oossible  are  stored  ana  a 
run-time  warning  messaoe  is  issued  advisina  that  strina 
overflow  has  occurred.  For  decimal  storage,  if  me  total 
number  of  cached  digits  to  be  stored  is  larger  than  tne 
available  storage  space,  non-s i gn i f i c an t aigits  are  deleted 
until  the  decimal  value  can  oe  stored.  It  a significant 
digit  must  be  deletec  in  order  to  store  a decimal  value,  an 
error  messaoe  is  generated  and  the  stored  decimal  value 
is  arbitrarily  set  to  1.0  to  allow  continuation  of  program 
execution. 

Array  elements  are  stored  exactly  as  the 
corresponding  single  element  variables.  however,  the 
data  located  at  the  beginning  of  each  array  storage  area 
(refer  to  Figure  9)  is  used  to  calculate  trie  actual 
location  of  a specific  arrav  element.  Tnis  is  accomplished 
Dy  initializing  the  offset  variable  to  the  value  of  the 
rightmost  subscripted  value.  This  value  is  then  aaded  to 
the  product  of  the  next  rightmost  subscriotea  value  and  the 
n-1  displacement  vector  value.  This  procedure  is  continued 
until  the  left-most  subscripted  value  has  oeen  usen  in 
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the  calculation. 


Next  trie  offset  vector*  v * plus  one* 
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variable  and 

the  result  is 
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in  question.  A 

check  is  made  to  insure  toe  calculated  total  offset  is 
not  oreater  than  the  offset  which  would  result  in  access  to 
the  last  array  element.  An  error  message  is  aenerated  bv 
the  interpreter  if  a subscripted  variable  is  referenced  with 
suoscriots  that  are  n0t  witnin  the  declared  arrav 

d i mens  ions. 

5.  Arithmetic  Operations 

Arithmetic  operations  for  inteoer  variables  are 
straiahtforward  because  the  i mo  1 ement at i on  lanouage,  Pl/M 
[«] , provides  all  of  the  necessary  two  byte  arithmetic 
ooeraticns.  Therefore*  the  two  inteoer  values  which  are 
to  be  added*  subtracted*  multiplied*  or  divided  are  placed 
one  aoove  the  other  on  the  stack  ano  tne  appropriate 
routine  performs  the  necessary  arithmetic  ooeraMon, 
replacing  the  oricinal  two  inteoer  values  with  the 

result  of  that  operation.  Th»  resulting  value  is  then 
available  to  store  into  the  space  allocated  for  an  inteoer 
variable  or  t0  be  used  as  one  of  th-  integer  values  for 

continued  arithmetic  coerations. 

Decimal  arithmetic  is  acccmolished  bv  manipulation 
packed  decimal  strinns.  each  of  which  is  1 oaoed  in  a ten 
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ovte  reai step  (two  dicits  per  byte) 


The  result  of  toe 


decimal  arithmetic  operation  is  stored  in  a third 
register.  decimal  values  are  also  stored  in  the  Decked 
decimal  form,  shown  in  Fioure  to.  Decimal  strinos  are  only 
unpacked  when  ana  if  tney  are  written  to  aisk  or  console 
at  run-time.  Decimal  addition  is  accomplished  by 
adoina  the  t»o  reaisters*  subtraction  is  done  usina 
nines  complement  arithmetic/  mu  1 t i o I i c a t i on  is  done 
tKrouah  a shift  and  add  algorithm,  ana  division  by  a shift 
and  subtract  -etnao.  After  the  decimal  arithmetic 
operation  is  comoleted*  the  result  is  placed  on  the  too  of 
the  stack  in  preparation  *or  a decimal  store  operation  or 
use  as  a new  value  in  a continuino  sloebraic  expression. 

o.  Strina  Operations 

The  ALGDL-M  compiler  is  designed  to  handle  strings 
ud  to  255  characters  in  lenqth.  The  concatenation  ooerator 
allows  two  or  more  strinqs  to  be  comoinea  to  oroauce  a new 
strina  consistina  of  all  the  characters  contained  in 
the  orioinal  strings.  The  orocess  of  concatenation  takes 
place  on  the  Stack  with  strings  oeing  combined 
repeatedly  as  necessary  for  multiole  concatenations. 
The  result i na  string  is  then  available  for  storage  in 
the  space  allocated  »o  a st rino  identifier.  If  the  result 
of  concatenat  mn  orrduces  a strino  which  is  lonaer  than 
the  allocated  sforaae  space/  the  string  is  truncated  as 
necessary  and  an  error  message  is  issued  by  the  interpreter. 
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Sub  r ou  t i nes 


There  are  two  tvors  of  subroutines  in  ALGOL.~b: 
functions  and  procedures.  The  only  difference  between  the 
two  is  that  a function  returns  a value  to  the  too  of  tne 
stack  while  a oroceoure  does  not.  Subroutines  are  fullv 
recursive  and  can  pe  called  orior  to  their  declaration. 

a.  Invocation 

A subroutine  can  be  invoked  witK  zero  or  more 
actual  parameters.  The  actual  oarameters  consist  of 
integer/  decimal,  or  string  expressions  which  are 
evaluated  and  oassed  to  the  suoroutine  via  the 
execution  stack.  In  addition  t0  parameter  values/  the  only 
other  information  needed  to  call  a procedure  is  the 
procedure  address  in  the  eoHe  area.  The  actual  format  of 
the  stack  at  the  Point  of  a subroutine  cal)  is  inoicateo  in 
F i gure  10. 

p.  Storaae  Allocation 

Storaoe  fcr  variables  and  parameters  declared 
within  a suoroutine  is  allocated  on  the  stack  at  run-time. 
The  actual  Parameters  ana  the  subroutine  call  information  is 
a' so  stored  on  the  execution  stack.  Tq  allow  subroutine 
call  by  value  and  to  save  memory/  ir  was  necessary  tn  move 
the  actual  parameter  values  and  subroutine  call  information 
o ft  the  stack  prior  tc  allocating  storage  for  the  formal 
parameters  and  local  variables.  This  was  accomplished  by 
movina  them  to  the  too  nf  availaole  memory.  Storage  can 
then  oe  allocated  f op  the  formal  parameters  on  top  of  tne 
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STACK  CONFIGURATION  FOR 
PRO  OPERATOR 


1 


BEFORE  AFTER 


FIGURE  10 


stack  in  the  normal  manner.  This  move  was  accomplished 
throuqh  the  S*V  ooerator  as  illustrateo  in  Figure  11.  The 
S A V operator  also  checks  to  determine  it  the  cal)  is  a 

recursive  call  and  if  so,  saves  the  procedure  control  block 
(PCB)  on  too  of  the  stack.  The  PCB  is  similar  in  structure 
to  that  Of  AL60L-E  f 1 h)  . Althouoh  tnis  procedure  slows  ao*n 
the  execution  speed  of  toe  interpreter,  it  was  considered 
more  important  to  save  memory  soace.  Storing  suoroutine 
values  on  the  stack  as  indicated  above  simplifies  the  de- 
allocation of  memory  at  the  end  of  the  suoroutine.  This  ii 
accomplished  by  simrly  removing  elements  from  the  stack  down 
to  toe  appropriate  level. 

c.  Parameter  Mapoing 

Parameter  mapping  is  done  through  the  use  of  tne 
5 V<>  operator  as  illustrated  in  Figure  Id.  The  operator 
copies  the  actual  parameter  information  at  tne  top  of  memory 
into  the  area  allocated  on  t00  of  the  stack.  The  PCS 
whicn  keeps  track  of  subroutine  variables  is  then  set  with 
pointers  to  the  current  oarameter  values. 

d.  Function  Oeturn  Value 

Included  with  the  allocated  area  for  parameters 
ana  local  variables,  there  is  an  additional  allocated 
area  for  the  return  value  of  functions.  The  function  name 
is  treated  as  a simple  variable  within  the  function 
ana  the  return  value  is  assioned  to  it.  This  value  is 
copied  to  the  top  of  the  stack  when  the  function 
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< I S t PARM  TYPE 

<PARAMETER 
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<P  ARAMETER 


LOCAL  VARIABLES 


FORMAL 
} PARAMETER 
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-ALLOCATION 
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' AFTER 
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I CALL  INFORMATION (MOVED  OFF 
> STACK)  AREA  USED  TO  SAVE 
PCB  FOR  RECURSIVE  CALLS 


FIGURE  11 
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e.  External  Functions 


The  ALGOL-M  grammar  supports  external 
function  declarations  and*  although  thev  have  not  been 
implemented  their  desian  has  been  considered.  External 
functions  are  conceived  to  be  ALGOL-M  intermediate  files 
which  could  be  declared  and  called  from  other  ALGOL-M 
programs.  The  intermediate  code  for  tnese  files  would 
be  read  from  disk  ov  the  compiler  and  integrated  into  the 
program  intermediate  code  as  if  the  external  subroutine 
had  in  fact  been  a normal  proaram  subroutine.  The 
grammar  would  reauire  modification  in  order  to  allow  a 
subroutine  to  be  compiled  by  itself. 

f.  Forward  References 

Forward  subroutine  references  are  supported  dv 
simply  treating  all  undeclared  identifiers  as  forward 
subroutine  references  durina  oass  one  of  tne  compiler.  If 
on  pass  two  these  references  have  not  been  resolved*  then 
an  undeclared  variable  error  is  generated  bv  the  compiler. 

g.  Built-in  Functions 


There  are  currently  no  built-in  functions  m 
ALGOL-M.  However,  their  implementation  has  been 
considered.  To  implement  built-in  functions,  a si  mole 
modification  to  the  symbol  table  structure  would  oe 
needed,  allowing  the  built-in  function  names  to  be  entered 
’n  the  symbol  table  w*en  i i is  initialized.  There 
would  oe  an  operator  associated  with  each  function  name  in 
the  symbol  fable  wnich  would  indicate  the  run-time  action  to 


be  taken 


This  operator  would  be  emitted  each  time  the 


built-in  function  was  referenced. 

8.  Input-OutDut 

Two  basic  tvoes  of  input-outout  fl/U)  are 
implementeo  in  the  ALGQL-M  lanauage:  console  and  disk. 
Console  I/O  refers  to  the  device  which  is  being  used  to 
provide  commands  to  the  system,  typically  a cathoae-rav 
tuoe  terminal  or  a teletype.  Input  is  accomplished  via 
ALGOL-'M  orogram  READ  statements  and  outout  via  nPITt  or 
wRITEON  statements.  Tnteaer  and  decimal  values,  ineludina 
signs  ana  decimal  points,  are  converted  from  their 
internal  rep  resen t a t i on  into  ASCII  characters  which  are 
provided  to  an  ooeratinq  system  orint  routine  for  console 
outout.  String  variables  and  cnnstants  are  stored  in 
the  ALGOL-M  pseuoo-mac h i ne  as  ASCII  strincs  ana  are  sent 
character  oy  character  to  the  system  orint  routine.  Consol* 
input  is  accomolishec  via  an  operating  system  routine  which 
reads  ode  full  console  line  into  an  ALGOL-to  butter.  Tn» 
interpreter  e*amines  the  buffer  and  converts  the  ASCII 
characters  in  the  buffer  into  the  appropriate  A|_CuL-M 
internal  decimal,  integer  or  strina  format.  ihe  innut 
value  is  then  stored  in  the  space  allocated  for  its 
variable  name. 

The  ALGOL  - M READ  or  rtR  I TE  statement  for  disk  T/0 
contains  the  name  of  the  disk  file  to  be  usea  ana, 
ootionally,  soeeifies  the  disk  drive  containing  that  file. 
The  default  arive  is  the  currently  l oaged  arive  [4]  . 
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An 


additional  option  is  that  any  specific  record  on  tne  file 


may  also  be  soecified  in  the  ALGOL-M  READ  or  WRITE 
statement.  A file  aeclaration  statement  is  used  to 
associate  file  identifier  names  with  a specific  entry  in  the 
ALGOL-M  PRT.  At  run-time#  space  is  allocated  on  the 
ALGOL-M  stack  for  file  control  block  (FCb)  information 
necessary  to  interface  file  ooerat ions  with  the 
operating  system.  In  addition  to  the  PCP#  space  is 
also  allocated  for  a 12R  byte  I/O  buffen  for  each  declared 
file.  The  routines  to  convert  packed  decimal  and  inteoer 
numbers  from  internal  form  to  ASCII  form#  ano  vice-versa# 
which  are  used  for  writing  to  and  readina  from  disk  files 
are  the  same  as  those  used  for  console  I/O.  Anv  number  of 
tiles  may  be  ooen  simultaneously  and#  as  with  all  run- 
time storage#  the  soace  allocated  on  the  stack  for  file 
operations  is  recovered  when  the  block  is  exited. 

9.  ALGHL-m  Pseudo  Operators 


a.  Description  of  Interpreter  Variables 

The  top  item  on  the  ALGOL-M  stack  is  addressed 
by  the  variaple  RA  while  the  next-to  too  item  on  the  stack 
is  addressed  by  the  varianle  DB.  The  value  contained  in  the 
first  two  bvtes  addressed  bv  pA  and  R8  are  referenced  by  *Tie 
variables  APA  and  ARB  respectively.  The  contents  of  the 
low-order  byte  of  ara  and  ARP  is  referenced  by  the  variable 
BRA  or  Brp  respectively.  The  structure  of  the  stack  is 
shown  in  R i au  r e a . Decimal  and  strina  values  may  oe 
represented  on  th»  stack  by  an  address  which  yields  •'he 

ao 
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stored  on  the 

stack. 

it  is 

referred  to  as  a temporary  value.  Temporary  val 

ues  are 

stored  on  the  stack  in  preparation  for  storage  into  the  area 
allocated  to  a specific  identifier,  or  for  use  as  a value  in 
the  evaluation  of  an  expression. 

The  ALGOL-M  compiler  generates  various  pseudo 
operators  which  were  chosen  to  allow  effective  run-time 
execution  of  the  ALGOL *M  oseudo  machine.  Following  is  a 
list  of  the  pseudo  operators  ana  a brief  description  of  the 
action  taken  at  run-time  when  each  operator  is  encountered 
in  the  AlG0L-m  code  area. 

b.  Literal  Data  References 

An  initial  check  is  made  of  each  one  Dvte 
operator  in  the  code  area  in  order  to  determine  if  the  high 
order  bit  of  that  byte  is  set  to  one.  If  the  high  order  bit 
is  set  then  the  least  significant  iu  bits  of  that  bvte  and 
the  following  ovte  are  automatically  added  to  the  address  of 
the  beainnino  of  ►he  program  reference  table  and  placed  on 
too  of  the  stack.  A check  is  then  made  of  the  second  bit  of 
the  original  byte  and  if  it  also  is  set  to  one  the  PRT 
address  now  on  too  of  the  stack  is  replaced  by  the  contents 
of  the  two  bvtes  pointed  to  by  that  address.  These  are 
referred  to  as  LIT  and  LITLPD  operators. 

IN  T : (integer).  The  followino  two  byte  inteoer 
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value  is  placed  on  the  stack 
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il 


STR:  (string).  The  prooram  counter  is 
incremented  oast  the  following  string  constant  and  the 
adaress  of  the  ne*t-to-1ast  bvte  of  the  strinej  constant  is 
placed  on  the  stack. 

OFCT;  (decimal).  The  proaram  counter  is 
incremented  cast  the  following  decimal  constant  and  tne 
address  of  the  ne*t*to*l ast  bvt»  of  the  decimal  is  olacea  on 
the  stack.  The  ne*t*to«last  bvte  of  the  decimal  constant 
contains  the  offset  to  the  first  byte  of  the  constant  which 
in  turn  contains  the  value  of  the  number  of  bvtes  in  which 
actual  decimal  digits  are  stored. 

I M 1 t (load  a one  byte  integer).  The  value  of 
the  followina  bvte  is  converted  to  a two  ovte  value  and 
placed  on  the  stack. 

IM2:  (load  a two  byte  integer).  The  followina 
two  byte  value  is  placed  on  the  stack  in  reverse  order. 


c,  Allocation  Operators 

ALD:  (allocate  decimal).  Storaae  for  a decimal 
variable  is  allocated  on  the  stack  and  the  address  of  the 
allocated  area  is  placed  in  the  PPT  entry  for  the  specific 
dec imal  variable. 

AIS:  (allocate  string).  Storage  for  a strina 
variable  is  allocated  on  the  stack  and  the  address  of  the 
allocated  area  is  placed  in  the  PpT  entry  for  tne  specific 
strina  variaole. 

AID;  (allocate  intermediate  decimal).  The  same 
action  is  taken  as  in  AID  except  tne  declared  decimal  lenoth 
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is  left  on  too  of  the  stack  in  preparation  for  the  next 


al location 
code  area. 
i dent i f i ers 

action  is 
that  String 


which  is  exoectea  to  immediately  follow  in  the 
This  ooerator  is  used  when  several  decimal 
are  declared  in  a single  declaration  statement. 
AIS:  (allocate  intermediate  string).  The  same 
taken  as  in  the  AID  operator  with  the  exceot ioo 
allocation  is  used. 


d.  Arithmetic  Operators 

ADi:  (add  integer).  The  inteaer  values  of  tne 
top  two  items  on  tne  stack  are  reolacea  bv  their  integer 
sum . 

ADO:  (add  decimal).  Tne  decimal  value  of  tne 
top  item  on  the  s^ack  is  loaded  into  decimal  arithmetic 
register  zero*  and  the  value  of  the  second  item  on  the  stack 
is  loaded  into  decimal  arithmetic  register  one.  The  two 
arithmetic  registers  are  added  with  the  result  placed  in 
register  two.  The  original  decimal  values  on  the  stack  are 
replaced  by  the  result  of  the  arithmetic  operation. 

SOI:  (subtract  integer).  The  second  inteaer 
value  on  the  stack  is  subtracted  from  the  integer  value  on 
top  o*  the  stack,  both  values  are  removed  from  tne  stack  and 
the  result  of  the  ooeration  is  olaced  on  too  of  the  slack. 

SBD:  (subtract  decimal).  The  same  action  is 
taken  as  in  the  ADO  operator  exceot  the  second  item  is 
subtracted  from  the  top  item  on  tKe  stacx. 

MP I : (multiply  inteaer).  The  same  action  is 
taken  as  in  the  S6T  operator  except  me  too  So  items  are 
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multiplied 
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k. 


MPO:  (multiply  decimal).  The  same  action  is 
taken  as  in  the  400  operator  except  the  too  two  items  are 
multiplied. 

OVI:  (divide  integer).  The  same  action  is  taken 
as  in  the  SRI  operator  exeeot  the  top  item  is  divided  bv  *he 
second  item. 

OVD:  (divide  decimal).  The  same  action  is  taken 
as  in  the  ADO  operator  exeeot  the  too  item  is  divided  bv  tne 
second  item. 

NEG:  (negative).  The  sign  of  the  decimal  or 
integer  on  too  of  the  stack  is  changed. 

C I 1 : (convert  inteaer).  The  integer  on  too  of 
the  stack  is  replaced  by  its  decimal  eauivalent. 

CI2:  (convert  integer).  The  same  action  is 
taken  as  wi tn  C 1 1 except  the  infeoer  which  is  the  second 
item  on  the  stack  is  converted  to  a decimal. 

LSS : (integer  less  than).  The  integer  value 
( AK8)  is  compared  with  the  inteaer  value  (ARA).  Roth  values 
are  removed  from  the  stack.  If  ARB  was  less  than  AWA,  tne 
value  one  is  olacea  on  th»  stack,  otherwise  the  value  zero 
is  placed  on  th«»  stack. 

DL3S:  (decimal  less  than).  The  decimal  on  too 
of  the  stack  is  compared  to  the  decimal  wnich  is  the  second 
item  on  the  stack.  If  the  value  on  too  of  the  stack  is  less 
than  the  second  va'ue  on  the  stack,  both  values  are  removed 
from  the  stack  and  replaced  bv  the  value  one,  otherwise  thev 
are  replaced  by  the  value  z«*ro. 

R0 


GTR:  (integer  greater  than) 


The  same  action  is 


taken  as  in  the  LBS  operator  except  a one  is  placed  on  the 
stack  if  ARB  is  greater  than  ARA. 

OG  TP : (decimal  greater  than).  The  same  action 
is  taken  as  in  the  ^LSS  operator  except  a one  is  olacea  on 
the  stack  if  the  secona  decimal  item  is  greater  than  the  too 
dec i ma 1 item. 

EOL:  (integer  eaual  to).  The  same  action  is 
taken  as  in  the  GTR  operator  except  a one  is  placed  on  the 
stack  if  ARB  is  eaual  to  ARA. 

DEQL:  (decimal  equal  to).  The  same  action  is 
taken  as  in  the  DGTR  operator  exceot  a one  is  placed  on  the 
stack  if  the  secona  decimal  item  is  eaual  to  t n e too  decimal 
item. 

NfQ:  (integer  not  eaual  to).  The  same  action  is 
taken  as  in  the  EQL  operator  exceot  a one  is  placed  on  the 
stack  if  ARB  is  not  ecual  to  AR4. 

DNEQ;  (decimal  nor  equal  fo) . The  same  action 
is  taken  as  in  the  PEQL  operator  exceot  a one  is  olacea  on 
the  stack  if  the  second  decimal  i te*  is  not  eaual  to  the  too 
dec i ma I item. 

GEU!  (integer  greater  than  or  equal  to).  The 
same  action  is  taken  as  in  the  ^ E G operator  exceot  a one  is 
placed  on  the  stack  if  ARP  is  qreater  than  or  eaual  to  AR&. 

OGEH : (decimal  areater  than  or  eaual  to).  The 
same  action  is  taken  as  in  t h«  hnFq  ooerator  except  a one  is 
placed  on  the  stack  it  the  second  decimal 
than  or  eaual  to  the  too  decimal  item. 


item 


is  Greater 


LEU:  (integer  less  than  or  equal  to).  Tne  same 


action  is  taken  as  in  tne  GFQ  operator  except  a one  is 
placed  on  the  stack  if  ARB  is  less  than  or  equa'  to  ARA. 

OLEH:  (decimal  less  than  or  eoual  to).  The  same 
action  is  taken  as  in  the  DGFQ  oDerator  except  a one  is 
placed  on  the  stack  if  the  second  decimal  value  is  less  than 
or  equal  to  the  top  decimal  value. 

NOT:  (boolean  not).  This  operator  changes  the 
result  of  any  previous  hooleun  operator  Dy  c omp 1 emen t i no  the 
value  of  the  one  or  zero  which  was  olacea  on  the  stack  bv 
the  previous  operation. 

AMD:  (boolean  and1.  This  operator  checks  tne 
top  two  values  left  on  the  stack  by  any  two  previous  boolean 
operations.  Tf  both  values  are  one  then  both  values  are 
replaced  with  a one:  otherwise  both  values  are  replaced  with 
a zero. 

UR:  (boolean  or).  This  operator  checks  the  too 
two  values  left  on  the  stack  by  any  two  previous  boolean 
operations.  Tf  either  value  is  a one  then  both  values  ar» 
replaced  by  a one:  otherwise  they  are  replaced  by  a zero. 


e.  Strina  Operators 

C4T:  (cone  at ena t e ) . The  two 
the  stack  are  combineo  to  produce  a new 
the  characters  of  the  second  strina 
characters  of  the  first  string.  The 
are  popped  from  the  stack  and  replaced 


S t r i ngs  on  too  of 
Strina  consisting  of 
foil  owed  b v tne 

two  original  Strings 
bv  the  resu 1 t i no 


L 
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concatenated  string 


SLSS:  (string  less  than).  The  same  action  is 
taken  as  in  the  DISS  operator  except  that  a character  Dy 
character  String  comparison  is  made  using  the  ASCII 
character  collating  sequence. 

SGTR:  (string  greater  than) . The  same  action  ts 
taken  as  in  the  DGTR  operator  except  a strinq  comparison  is 
made . 

SCGL:  (string  eaual  to).  Tne  same  action  is 
tasen  as  in  f he  HEQL  operator  except  a strino  comparison  is 
made . 

SM£0:  (string  not  eoual  to).  The  same  action  is 
taken  as  in  the  ON  EG  ooerator  except  a strina  comparison  is 
made . 

5GE0:  (string  greater  than  or  eoual  to).  The 
same  action  is  taken  as  with  OGFG  except  a string  comparison 
i s made . 

SIEQ:  (strinq  less  tnan  or  equal  t0).  The  same 
action  is  taken  as  with  OLEH  except  a strina  comparison  is 
made . 


f . Stack  Uoerators 


xCH:  •’exchange).  The  value  of  tne  too  two  hytes 


on  the  stack  (ARA)  is  exchanaed  with  the  value  of  tne  me*t- 
to~too  two  hyrgs  nn  the  stack(ARB). 

POP:  (pop  the  stack).  The  stack  pointer  (RA)  is 
moved  to  the  position  of  the  stackpointer  ( DB  ) and  Pb  is 


moved  to  Point  to  tse  n»xf  item  below  its  current 
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on  rne  stack 


LOD : (load) 


The  address  value  on  t^e  stack 


(ARA)  is  replaced  by  tne  two  hytes  pointed  to  by  t^d' 
address . 

DCB : (decrement  o'ock  by  more  than  one  'eve';: 
The  stack  pointer  (RA)  is  dec  rement  ed  ♦’o  the  adcress  s»cren 
in  the  block  'eve'  fable  and  the  inaex  to  tne  clot*  'eve' 
table  is  decreased  hy  the  value  stored  in  the  next  t«n  nyves 
in  the  code  area.  The  stack  pointer  fRP)  is  moved  te'o*  «a 
to  the  too  of  the  second  item  on  the  stack. 

BLI:  •'clock  lev°l  increment).  The  index  to  toe 
o'ock  level  array  is  increased  by  one  ana  the  address  o*  tne 
top  item  on  the  stack  is  stnred  in  ►he  block  'eve'  arrav. 

dLO:  (o'ock  level  decrement'.  Tne  index  to  tne 
o'ock  'eve'  array  is  decreased  by  one  ana  the  value  o*  tne 
stack  pointer  (°A)  is  chanqed  to  the  address  stereo  in  tne 
block  level  array. 

5PR:  (subtract  stack  values'.  This  operator  is 
used  to  subtract  the  second  value  on  the  stack  from  the  too 
value  on  the  stack  usina  unsioned  sixteen  cit  arithmetic. 
The  two  values  are  reo'aced  bv  the  result  of  tne 
suot  rac  t ion. 

g.  Array  Operators 

Rda:  (allocate  arrav  stnrage).  The  number  o * 
array  dimensions/  the  upper  ana  'ower  nounas  c*  each 
dimension,  and  the  arrav  type  (infeoe'i  decimal/  nr  string' 
are  used  to  calculate  the  array  displacement  vect'r  .Mr"  is 
Stored  on  t Ke  stack  prior  to  ll  loca*’  nn  of  stnrajje  tor  tne 


actual  array  elements. 

51)6:  (calculate  the  offset  to  a specific  array 
element).  The  array  subscript  is  used  in  conjunction  with 
the  displacement  vector  information  stored  at  the  heoinnino 
a*  t*e  array  storaae  area  to  calculate  the  address  of  the 
specific  array  element  beinq  referenced  by  the  subscripted 
v a r i able. 


n.  Prooram  Control  Operators 

oPS:  (pranch  apsolute).  The  orogram  counter  is 
c^anqea  to  an  address  one  less  than  the  address  represented 
ov  the  followina  two  bytes  in  the  code  area. 

6PC : (oranch  conoi t i ona 1 ) . If  the  value  on  too 
of  the  stack  is  zero/  tie  proaram  counter  is  ehanoed  as  in 
bPS?  otherwise  the  orogram  continues  with  the  next  operator 
in  the  c ode  area. 

BPA:  (computed  branch  aoso' utel  . The  program 
counter  is  chanaed  relative  to  the  start  of  the  code  area  bv 
the  value  on  too  of  the  stack. 

XIT:  (exit  the  i nt eroret e r ) . XTT  caused  return 
of  control  to  the  operating  svstem. 

i.  Store  Operators 

STI:  (stone  inteqer  intermediate).  The  inteaer 
value  which  is  the  second  item  on  the  stack  is  stored  in  me 
PPT  address  which  is  the  too  item  on  the  stack.  The  PPT 
address  is  then  removed  fnom  the  stack. 

SOI:  (store  decimal  i n t e rmed i a t e ) . The  same 
action  is  taxen  as  with  STI  except  a decimal  value 


S5 


is  stored 


in  the  allocated  area  pointed  to  by  the  adaress  on  top  of 


the  stack. 

SSI:  (store  strina  intermediate).  The  same 
action  is  taken  as  in  the  SOI  ooerator  exeeot  a strina  value 
is  s t o red . 

SID:  (store  integer  destruct).  The  same  action 
is  taken  as  in  the  SII  operator  exeeot  both  the  pKT  address 
ana  the  integer  value  are  removed  from  the  stack. 

SOD:  isfore  decimal  aestruct).  The  same  action 
is  taken  as  in  the  SID  operator  except  the  pointer  to  the 
decimal  allocated  area  and  the  decimal  value  are  removed 
f rom  toe  stack. 

SSD:  (shore  strina  destruct).  The  same  action 
is  taken  as  in  the  SOD  ooerator  exeeot  the  pointer  to  hne 
strina  allocated  area  and  the  shrina  value  are  removed  from 
the  stack. 

j.  Input/Outcut  Operators 

DMP:  (dump).  DMP  siqnifies  the  end  of  writina  a 
line  to  the  console.  fl  carriane  return  and  line  feed  are 
output  to  the  console  via  the  operating  svstem. 

wTC:  (write  integer  to  console).  The  inteaer 
value  on  hgc  of  the  shack  is  converted  ho  ASCTI  characters 


strina  value  on  top  of  the  stack  is  printed  on  the  console. 

rtTD:  (write  inteqer  to  disk).  The  inteqer  value 
on  top  of  the  stack  is  converted  to  ASCTI  characters  and 
stored  in  the  disk  buffer  allocated  for  tne  f i 1 e name 
soecified  in  the  source  rtPITE  statement. 

rtDD:  finite  decimal  to  disk).  The  decimal  value 
on  top  of  the  stack  is  converted  to  ASCII  characters  and 
store d in  the  dis*  buffer  allocated  for  the  file  name 
specified  in  the  source  *v  R I T E statement. 

rtSU:  (write  strino  to  disk).  The  ASCII  strina 
characters  on  top  of  the  stack  are  stored  in  the  dis*  Duffer 
allocated  for  the  file  name  soecifieo  in  the  source  t’RTTE 
s t a t emen  t . 

RC I : (read  console  inteaer).  The  console  read 
buffer  is  scanned  for  the  ASCII  r ep r esen t a t i on  of  an  inteaer 
which  is  converted  into  internal  form  ana  placed  on  too  of 
the  staeK. 

RCD:  (read  console  decimal).  The  console  read 
buffer  is  scanned  for  the  ASCII  r eo r esen t a t i on  of  a decimal 
value  which  is  converted  into  internal  'onr  and  placed  on 
too  of  the  stack. 

RCS:  (read  console  string).  The  console  read 
ou  f f er  is  scanned  for  an  ASCII  string  or  for  anv  series  of 
characters  delimited  by  quotation  marks  which  is  placed  on 
t np  of  the  stack. 

R o I ; (read  disk  inteaer).  The  disk  buffer 
allocated  to  the  file  na»e  appearing  in  the  source  lanou^ge 
READ  statement  is  scanned  for  the  ASCII  representation  e f an 


integer  which  is  converted  to  internal  form  and  stored  on 


; I too  of  the  stack. 

j t ROD:  (read  disk  decimal).  The  same  action  is 

taken  as  in  the  ROI  operator  exceot  a decimal  value  is 

placed  on  top  of  the  stack. 

i 

' RDS:  (read  disk  strina).  The  same  action  is 

taken  as  in  the  RDI  operator  exceot  a strina  value  is  placed 
on  too  of  the  stack. 

RCh:  (load  console  buffer).  The  current  line  on 

[!' 

the  console  is  dumped  into  f he  console  read  buffer  and  tne 
|"j  current  proaram  counter  is  stored  in  preparation  for  the 

possibility  of  a console  error  ana  the  subsecuent  need  to 
recover  for  repeated  console  incut. 

ECR:  (error  in  console  read).  If  characters 
remain  in  the  console  read  buffer  after  all  console  read 
operations  have  been  completed,  an  error  condition  exists 
and  the  proaram  counter  is  reset  to  the  start  of  tne  console 
read  routine  allowing  the  console  input  to  be  entered  again 
as  necessary. 

QPN:  (disk  open).  The  address  on  too  of  tne 
stack  coiots  to  the  allocated  area  for  the  file  control 
block  and  disk  buffer  associated  with  the  disk  file  name 
soec i f i ea  in  the  source  1 anouage  file  aeclaration  statement, 
(he  file  name  which  is  stored  in  tne  file  control  block  is 
passed  to  the  operation  svstem  which  in  turn  ooens  that 
soecific  file  for  disk  i ncut /output . 

CL3:  (disk  close).  Ihe  file  name  located  in  ihe 
file  control  block  coinhed  to  bv  fhe  address  of  the  top  of 

Stt 


If 


the  stack  is  passed  to  the  ooerat inn  system  which  in  turn 
closes  that  specific  tile  to  i nout /out  put . 

ROB:  (ready  sequential  block).  The  interpreter 
input/outout  routines  are  initialized  to  operate  with  the 
file  control  block  and  disk  buffer  area  pointed  to  by  the 
address  on  top  of  the  stack.  The  address  of  the  code  to  be 
executed  uoon  reachina  the  end  of  a file  is  also 
i n i t i a 1 i zed . 

RDF:  (ready  random  block).  The  same  action  is 
taken  as  with  ROB  with  the  addition  that  the  specific  record 
of  the  disk  file  is  also  taken  from  the  too  of  the  stack  and 
the  file  control  block  is  set  ud  to  conduct  input/outout 
from  or  to  tnat  specific  recoro. 

EDR:  (end  of  record  for  read).  At  the  end  of  a 
read  statement  tne  remainder  of  the  record  is  skipped. 

EPe:  (eno  a*  record  for  write).  At  the  eno  of  a 
write  statement  the  remainder  of  f he  record  is  filled  with 
blanks  and  a line  terminator  is  appended  to  the  end  of  the 
record. 

k.  Subroutine  Operators 

P°0:  (subroutine  call).  The  two  bytes  of  code 
following  the  RRu  operator  represent  the  adaress  of  the 
subroutine  in  the  coot  area.  This  operator  saves  the  return 
address  at  the  too  of  memorv,  positions  the  stack  pointer  at 
the  too  of  the  first  actual  parameter  (see  Ficure  10  for 
parameter  format)  ana  branches  to  the  first  statement  in  the 
suorout i ne . 


| 

) 
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S A v r (save  actual  parameters) 


The  S£V  operator 


1 


expects  tne  stack  format  illustrated  in  Figure  11.  It 
copies  the  actual  parameters  to  the  too  of  memory  and  checks 
the  PC8  for  a recursive  call  and  if  so  it  copies  the  PCR 
onto  the  too  of  the  stack. 

SV2:  (cooy  actual  parameters  into  formal 
parameters).  The  SV2  operator  copies  the  actual  parameters 
a*-  the  too  of  memory  into  allocated  area  for  the  formal 
parameters  on  top  of  toe  stack. 

UM  S ; (unsave  oarameters).  Ihe  HNS  operator 
checks  the  PCt)  to  see  if  it  is  the  era  of  a recursive  call. 


If  thi 

S 1 s 

the  case#  I 'NS 

restores  the 

PCB  from 

the 

previous 

call. 

UNS 

also  returns 

the  va 

1 ue  assoc i ated 

with 

the  name 

of  the 

subroutine  to  tne 

too  of 

the  stacx.  In 

the 

case  of 

procedures 

rne  returned  value  is 

tero 

• 

HTN : (r*tum) 

. The 

D T N 

operator 

changes  the 

value 

o f 

t he  prooram 

count  er 

t 0 

the  value 

of  the  return 

address . 
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IV.  CONCLUSION? 


This  project  has  resulted  in  the  construction  of  a 
high-level,  0 1 ock*st ructured*  applications  oriented  compiler 
for  m i c ro“Comout er s with  ?0k  hyfes  of  memory  or  more.  rthen 
compared  to  a fully  dynamic  scheme,  the  stack  storage 
allocation  and  retrieval  scheme  presented  here  appears  to 
enhance  program  execution  speed*  reduce  memory 
requ i rement s * and  simolify  compiler  i mo  1 emen t a t i on . 

liminq  tests  with  several  oenchmark  programs  have  oeen 
conducted.  These  test  proarams  were  obtained  from  REF f 71 
ana  have  been  run  with  several  versions  of  the  BASIC 
proaramming  language.  Tne  results  (expressed  as  execution 
time  in  secondsl  ar-  summarized  as  follows: 


BENCHMARK  NUMBtP 

1 

2 

3 

4 

5 

o 

7 

ALGOL -N 

1.8 

1.3 

3.5 

7.3 

5.1 

1 4.2 

1 0 . 4 

INTEGER  BASTC 

1 .3 

3.1 

7.2 

7.2 

« . d 

1 8.5 

?6 . 0 

standard  basic 

1 .7 

7.5 

?0.o 

20.o 

22.  1 

36.? 

51.8 

Listings  of  the  seven  Benchmark  programs  are  contained  in 
Appendix  A.  The  reason  AL0UL-M  acoears  slower  in  the  first 
oencnmark  is  that  the  orammar  requires  at  least  one 
executable  statement  in  P0D  locos  when  compared  to  PA? 1C 
which  has  FOR  loons  which  can  do  nothing.  The  resultina 
ALGOL-M  program  executes  10Q0  extra  assionment  statements 
which  the  BASIC  proorams  did  not.  Otherwise*  the  results 


dearly  indicate  that  the  ALGOL-M  1 anguaae  is  not  only 


we  1 1 -st r uc t u red  but  also  executes  rapidly  in  comparison  with 
the  very  best  BASIC  i n t e ro re t e r s . It  is  believed  that  tne 
major  reason  that  tne  ALGOL-M  versions  performea  so  well  is 
the  fact  that  the  lanouage  supports  inteaer  arithmetic  as 


opposed  to  most  BASIC  implementations  which  convert  all 
constants  ana  variables  to  floating  point  format.  This 
allows  ALGOL-M  loop  control  counters  to  oe  incremented 
extremely  rapidly.  Comparisons  for  decimal  calculations 
have  not  been  done#  ana  thus  no  conclusions  can  oe  drawn 
concerni na  relative  soeeas  of  cal cu 1 at i on-deoenaent 
programs . 


4 


V.  RECOMMENDATIONS 

There  are  several  areas  that  could  be  enhanced  in  this 
i mp 1 e«en t a t i on  of  ALGOL-M.  Formatted  I/O  although  defined 
in  the  arammar  has  not  been  i»pl e^e^tea.  The  I/O  definition 
is  very  similar  to  that  of  COBOL  and  implementation  of  this 
should  not  be  too  difficult.  File  T/O  is  implementea#  hut 
not  tested.  Oebuogina  facilities  in  the  run-time  monitor 
are  not  currently  implemented.  However.  the  svstem  is 
designed  to  provide  the  following  information  at  run-time: 
the  line  numoer  of  tne  currently  executino  line  ana  the 
value  of  each  variable  as  it  is  altered. 

The  current  version  of  ALOUL-m  is  designed  to  run  on  a 
system  with  at  least  bvtes  of  memory.  A smaller  system 
could  oe  desianed  to  run  on  a lbk  system.  This  would 
involve  deleting  some  of  the  more  complicated  sections  of 
code  such  as  dynamic  arrays  and  recursive  subroutines.  Tne 
other  features  of  the  1 anauage  which  are  not  implemented  are 
relatively  minor*  and  are  indicated  in  the  program 
I i st i ngs . 
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APPENDIX  A - BENCHMARK  PROGRAMS 


1 


Benchmark  Proaram  1 


! 


300 

PRINT  "START" 

BEGIN 

400 

FDR  K=1  TO  1000 

IMTEGFR  A,*; 

500 

wExT  K 

NRITEf "START"!  ; 

700 

PRINT  "END" 

FOR  K!=l  STEP  1 TO  100o  uO 

800 

END 

a : = o ; 

..RITE  ("END"!  ; 

END  j 

Benchmark 

Proorar  j 

300 

PRINT  "START" 

| 

BEGIN  ! 

400 

* = 0 

INTEGER  * ; 1 

500 

K=K  f 1 

WRITE ("STAR  I ") ; ; 

600 

IF  K < 1 0 0 0 THEN  500 

k : = o ? ; 

700 

PRINT  "END " 

WHTLE  K < 1000  DO 

800 

END 

k:=k+i ; 

W R T T F ( " E N D " ) ; 


END 


Benchmark  Proaram  3 


300 

PRINT  "START" 

BEGIN 

400 

K = 0 

TNTEOEP  A , K ; 

500 

K = K + 1 

WRT  TE ( "START"  ) ; 

510 

A=K/K*K*K-K 

X 

• • 

II 

o 

C>00 

IF  K <1000  THFN  500 

WHTLE  K < 1 0 0 0 DO 

700 

PRINT  "END" 

BFGTN 

cno 

END 

k :=k  + l ; 

A ; = K /K  *K  +rt  -K  ; 

end; 

NkTTE ( "END"  ) ; 
END 
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300 

PRINT  "START" 

BEGIN 

aOu 

K = 0 

INTEGER  A , K ; 

SOO 

K =K  ♦ 1 

WRITE!  "START") ; 

5 1 0 

A-K/2*3*4-5 

k;=o; 

oO  0 

IF  K<1000  THEN  SOO 

WHILE  K<1Q00  DO 

700 

PRINT  "END" 

BEGIN 

000 

END 

k:=k+1; 

A:=K/<f*i  + a-5; 
END ; 

WRITF("END")» 

END 


benchmark  Proaram  5 


300 

PRINT"START" 

BEGIN 

aOu 

* = 0 

INTEGER  A,k; 

500 

K =K  > 1 

PROCEDURE  DONuTHTNG; 

51  0 

A=K/2*3+4-b 

A:=0; 

520 

GOSUo  620 

WRITE("START ") J 

bOO 

IF  K < 1 0 0 0 THEN  SOO 

k : = o ; 

700 

PRINT  "END" 

WHTLR  K<1000  DO 

000 

END 

6FGTN 

k :=k  + i ? 
a :=k/2*3*b-5; 
punqthing; 
end: 

wrtte("Enu"); 

END 


hb 


1 


bencbff'artc  Proaram  b 


i 

i 

f 


300  P R I N I "START" 

a00  K=0 

430  DIM  M ( 5 ) 

500  k=k*i; 

510  A=*/2*3*4-5 
5?0  GOSUri  820 
530  FOR  L- 1 TO  5 
540  NEXT  L 

bOO  IF  K< 1 000  THEN  500 
700  PRINT"tMD" 

800  END 


8FGIN 

INTEGER  A,K,L; 

1NTEGFR  ARRAY  M T 1 :51 i 
PRUCEDURE  DONOTHING; 
REGIN 
A:=o; 

end; 

rtPITEf "START"!; 

K : = 0 ; 

WHILE  K < 1 0 o 0 DO 
BEGIN 
KtsKtl  ; 

A : =K/?*3+a-5; 

DONO THING ; 

FDR  L : = 1 STFP  1 UMTTL 

A ; = 0 ; 

end; 

write ("End") ; 
end 


j 


S DO 


dfnchipark  Prooram  7 


300  PRINT  "START- 
400  KSO 

43u  DIM  M(5) 

500  KsK  ♦ 1 
510  A=K/2*3+4-5 
520  GOSUB  820 
530  FDR  L=1  TO  5 
535  M(L)=a 
540  NEXT  L 

t,Ou  IP  K<1  000  THEN  ^ 0 0 
/OO  PRINT-END" 

0Oo  END 
020  RETURN 


REGIN 

INTEGER  A , K , L ; 

INTEGER  array  w 1 1 :5)  ; 
PROCEDURE  DONOThTNG; 

8FGTN 

a : = o ; 
end; 

WRITE ("START")  ; 

K ; = o ; 

WHTLE  K<  1 000  DO 
REGIN 
K : =k  + l ; 

A;sK/2*3+4-5; 

DOnOThing; 

FOR  L : = 1 STEP  1 UNTIL  5 DD 
m f L T :=A ; 
end; 

WRITE ("End") ; 

END 


h(3 


APPENDIX  e - COMPILER  EPkOR  MESSAGES 

AS  Funct i on/°rocedure  on  left  hand  side  of  assignment 

statement . 

BP  Incorrect  bound  pair  subtype  (must  be  integer). 

DE  Disk  error;  no  corrective  action  can  be  ta*en 

in  the  program  . 

DD  Doublv  declared  identifier,  label,  variable  etc. 

IC  invalid  soec i a 1 character. 

ID  Subtyoes  incompatible  (decimal  values  can  not  oe 

assigned  to  integer  variables). 

ID  Integer  overflow. 

IT  Identifier  is  not  declared  as  a simole  variable  or 

f unc  t i on  . 

NG  No  alG  file  found. 

Nl  Subtyoe  is  not  i ntecer. 

NP  No  applicable  production  exists. 

NS  Suptyoe  is  not  strina. 

PC  Undeclared  Parameter. 

50  StaCK  overflow. 

51  Array  subscript  is  not  of  subtyoe  integer. 

ID  Subtyoe  has  to  be  integer  or  decimal. 

IM  Subtyoes  do  not  match  or  ar*  incompatible. 

TO  Symbol  table  overflow. 

IS  Undeclared  subscripted  variaole. 

UD  Undeclared  ioentifi“r. 

UP  Undeclared  f l 1 e f f unc t i on  . 

Up  Undeclared  rrcceour*. 


07 


VO 


Varc  table  overflow 


Possibly  caused  Dy  too  »ary 


APPENDIX  C 


INTERPRETER  f RPCP  MESSAGES. 


FHRLJP  MESSAGES 

A B Array  suoscr jet  out  ol  bounds. 

AZ  Artemot  to  allocate  null  decimal  or  strim, 

default  to  10  d i g i t s /c  H a r ac  t e r s . 


CE 

Disk 

f i 

1 e 

c'ose 

error. 

DC 

Disk 

f i 

i 1 e 

c r ea  t 

o orror, 

DW 

Disk 

f i 

l e 

w r i t-  e 

error. 

07  Division  by  zero,  result  set  to  1.0. 

EP  Disk  end  of  f’l°»  on  action  soecitjea. 

ID  Integer  overflow. 

NI  No  TNT  file  found  on  directory. 

LjV  Overflow  durjrg  decimal  multiply. 

H E A 1 1 emo  t to  read  cast  end  of  record  on  Dlocnea  fil». 

HU  Attemot  to  random  access  a non-hlocked  file. 

3 L Significant  digits  lost  durina  decimal  stores 

value  set  to  !.n. 

.■< Apt'  1 t'G  MESSAGES 
II  Invalid  Console  Incut 

IL  Non-significant  digit  Inst  during  decimal  store. 

SB  Characters  lost  ourino  str-nq  store. 


APPENDIX  D ALGOL-M  LANGUAGE  MANUAL 


This  section  describes  the  various  elements  of  the 
ALuOL-m  I anguaae.  The  format  of  the  element  will  he  shown, 
followed  bv  a description  and  examoles  of  use.  The 
following  notation  is  used: 

Braces  <)  indicate  an  ootiona!  entry. 

A vertical  bar  | indicates  alternate  choices,  one  of 
which  must  a ooear. 

Elicses  "...M  indicate  that  the  preceding  item  »av 
oe  optionally  repeated. 

deserved  wongs  are  indicated  by  capital  letters, 
deserved  words  and  other  special  symbols  must  aopear  as 
s hown . 

Items  appearing  in  small  letters  are  elements  of  the 
1 anouage  wn i ch  are  defined  and  exolained  elsewhere  in 
the  language  manya I . 
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i 


i 

I 

i 

! 

arithmetic  exoression 


' ELEVEN f: 

i 

| arithmetic  exoression 

f 

I FORMAT : 

i n t ege  r ! dec i ma I 


variable 

iO  arithmetic  exoression  binary  ooeratoc 
arithmetic  expression  Of 

{()  unary  ooerator  arithmetic  exoression  ill. 

DESCRIPTION: 

Ooerators  in  AlCQL-w  Have  an  implied  oreceaence  which 
is  used  to  determine  the  manner  in  which  operators  and 
operands  are  arcuoed.  A-R/C  causes  the  result  of  R 
divided  by  C to  be  subtracted  from  A.  Jn  this  case  B 
is  considered  to  be  "bound"  to  the  " / " operator 
instead  of  the  onerator  which  causes  the  division 

to  be  performed  first.  The  implied  precedence  binas 
operands  to  the  adjacent  operator  of  hianest 
precedence.  Toe  implied  precedence  of  operators  is  as 
f o 1 lows: 

j 

* 

i miJMxmirtiaxJi 


7 1 


unary 


- , t 

* * 

* , / 


Parent  heses 

can  be 

used  to 

override 

the 

i mo  1 i ed 

precedence 

in  the 

same  way 

as  they 

are 

used  in 

ordinary  alaebra.  Thus  the  expression  (A-6)/C  will 


cause  B to  be  suDt  racteri  from  A and  the  result  divided 
oy  f . 


example  : 

( x ♦ v ) * ( z * y + x ) * * ? 
x+Y+z*x*r*z/  S.aSb  + i 


i 

j 

j 


1 

.1 

jj 


4 

( 


I; 


ARRAY  declaration 


I 

| 

{ tlEMENT: 

i 

ARRAY  declaration 

I 

FORMAT; 

| INTEGER ! DECIMAL ! STRING  ((exoression)}  ARRAY 

identifier  ...  hound  oair  list  < , i den t i f i e r 1 

DESCRIPTION: 

The  array  declaration  dynamically  allocates  storage 
for  arrays.  Tne  optional  integer  expression  indicates 
the  lenath  of  each  arrav  element.  For  strinns»  the 
maximum  length  is  characters  ard  for  decimals  the 

maximum  lenath  is  1 * dinits.  Integer  lenatts  are  not 


spec i f i ed  since 

s t o race 

adeaua  t e 

t o 

represent 

i n t ege  r values 

bet  ween 

-1 O, 3*4 

ana 

tlor 3*4 

automatically  allocated.  Arrays  are  not  automatically 
initialized  to  zero. 

EXAMPLE: 

INTEGER  ARRAY  xt0:5,0:5i; 

DECIMAL! 10}  array  x , Y f 3 : b . 5 : 1 0 ) ; 

STRING  ARBAY  "IQODS  [Yt3:  121  ; 
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balanced  statement 


ELEMENT: 

balanced  statement 

FOhmaT  : 


{label  definition}  simole  statement 

{label  definition}  TF  boolean  expression  THEN  oalanced 
statement  EL3F  balanced  statement 


DESCRIPTION:  “ 


If  the  boolean  expression  is  true*  the  balanced 
statement  to  tne  left  of  the  ELSE  is  executed.  If  the 
boolean  exoression  is  false*  the  balanced  statement  to 
the  right  of  the  ElSE  is  executed. 

EXAMPLE:  | 

IF  a < R thFim  a :=  1 ELSE  A :=  2; 

IF  R = C THEN 
BEGIN 

WHTTE(B)  ; 

R :=  8 t l ; 

END 

ELSE 

REGIN 

WRITE (C ) ; 

C : = C t i ; 

END; 


PROGRAMMING  NOTF: 


« semicolon  is  not  allowed  a f t ® r »he  statement 
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immediately  preceding  an  FLSfc. 


r 


} 

ii 

h 
\ \ 

;! 


i 

i 

i 


J 


block 


ELEMENT : 


b l oc*c 


format : 


BEGIN  (declaration;)  ...  statement;  ...  £ N 0 ; 


DESCRIPTION: 


The  block  is  t n e Foundation  o F trie  ALGOL-P  ' anguaae. 
Each  time  a new  block  is  entered  new  variables  may  oe 
declared.  Triese  variables  are  uniaue  in  the  sense 
that  a variaole  V declared  in  two  ai f ferent  blocks 
represents  two  diFFerent  variables.  All  storage 
within  a block  is  dynamic  ana  allocated  when  the  block 
is  entered  anc  ae-al located  when  the  block  is 
departed.  A block  can  be  used  any  place  a simple 
statement  can  be  used. 


EXAMPLE : 


BEGIN 
x :=  l ; 
y :=  2; 

ENr>; 

IF  x = t T w£t 
BEGIN 
v : = 5 ; 
y : = a ; 

END; 


PROGRAMMING  NOTE: 


77 


r ’ 

> 

Declarations  *av  not  apoear  in  case  clocks.  The  i indl 
END#  which  matches  the  initial  o r o g r a m R E G I N # is  not 
followed  by  a semicolon. 


! 


i 
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Boolean  expression 


ELEMENT : 

boolean  expression 

FORMAT  : 

NOT  ooolean  expression 

DOolean  expression  OR  ooolean  expression 
boolean  expression  ANn  boolean  exoression 
{()  expression  =!<!>!>=!<=!<>  expression  {)} 

DESCRIPTION: 

Integer-i oteger » dec i ma 1 - r n t eae r , aec i ma ) -aec i ma 1 # 
i nteger-dec i ma I # and  s t r i nq-s t r i no • comoarisons  are 
allowed  in  ALGOL-M.  To r i nf eoer-dec i mal  and  decimal- 
integer  comparisons  f he  infeoer  value  is  converted  to 
a decimal  value  prior  to  comparison.  Ihe  result  of  a 
comparison  of  numerical  values  is  cased  on  the  site  of 
the  numbers.  The  result  of  a comnansor  of  Strino 
values  depends  on  a c h a rsc t e r-by -c h a r ac t e r comparison 
where  the  first  instance  of  a non-eoua!  character 
establishes  the  boolean  result.  The  collating 
seguence  of  the  ASCII  character  set  is  used  for  string 
comparisons.  Generally#  numbers  are  followed  dv  upper 
case  letters  which  are  followed  by  lower  case  letters. 

EXAMPLE : 


7 9 


X > Y OR  Y < Z 


(X  = Y)  AMO  (Y  = 7 OR  l = 10); 

IF  MOT  X = 1 ThFN  nP ITfc < "HELLO" ) ; 


i 


i 


l 


t 


bound  pair  list 


*1 


ELEMENT: 

bound  pair  list 


FORMAT  : 


(expression  : express i on express  i on  : expression!  ...i 


DESCRIPTION: 

Expressions  in  tne  bound  pair  list  must  be 
integer  and  Greater  than  or  equal  to  zero, 
be  nq  more  tnan  <fS5  dimensions. 


0 f t vpe 
Trier?  can 


LX  AMPLE  : 

(1 :7,0:S] 

1 3 : fe , x : vj 
( v * 3 : z , 1 : 1 <?) 


CASE  statement 


ELEVEN  T : 

CASE  statement 

FORMAT  : 

CASE  expression  OF 
=»E^IN 

s t a t emen  t ; ... 

end; 

DESCRIPTION: 

The  CASE  statement  allows  the  programmer  to  chose  one 
of  several  statements  to  be  executed.  The  statement 
chosen  depends  on  the  value  of  f he  i n t eae  r expression. 
The  first  statement  is  executed  it  the  exoression 
evaluates  to  rero.  If  the  value  of  the  expression  is 
greater  than  the  number  of  statements  in  the  case 
D'oek,  the  resulting  action  is  undefined. 

EXAMPLE : 

CASE  X Y Of 
PEG  I N 

WRITE ("CASE  0 " ) ; 

WRITE ("CASE  1"); 
end; 


CLOSE  s f a f e*en t 


ELEMENT: 

CLOSE  statement 


FORMAT : 


CLOSE  identifier  I* identifier}  ... 

DESCRIPTION: 

This  statement  allows  the  proorammer  to  explicitly 


close 

the 

f i 

1 e i no i cat  ed . C 1 os i 

na 

a 

file  result 

s l n 

the  f i 

1 e h e i 

no 

rewound  ( i . e . , if  i 

t 

i s 

r eocenec 

the 

file  h e c i n s 

a t 

tne  first  recora). 

A n 

V 

numbe  r o f f 

lies 

may  be 

open 

at 

any  one  time.  All 

f \ \ 

es 

are  i *p 1 i c 

1 t 1 V 

closed  at  the  ena  of  f he  orocjram. 
E v AMPLE : 

CLOSE  filei,  filep; 


p 3 


* ii 


inrmnriiTimiiTnii 


ELEMENT : 

constant 

FORMAT  : 

integerlaecimal Isfrina 

■f 

DESCRIPTION: 

A constant  way  be  either  an  integer,  oecima),  or 

strino  constant.  Integer  constants  are  numbers  w i t h I 

I 

no  decimal  Point  ranainq  from  -18,580  to  tl0,iA<4.  ] 

j 

Decimal  constants  are  numbers  with  a decimal  ooint  and  I 

* | 

may  not  exceed  18  digits  in  length.  String  constants 

] 

may  be  composed  o * anv  comoination  of  abhan^eric  and  1 

special  charaters  and  may  be  up  to  ?55  characters  in 
lenoth.  Stpincs  entered  from  the  console  or  disk  mav 
be  either  enclosed  in  quotation  marks  or  delimited 
w i t h blanks.  Strinas  used  as  constants  in  the  program  ! 

must  be  enclosed  in  quotation  marks. 

i 

Example: 

1 0 

10.5878 


Example  one 


dec  1 arat i on 


ELEMENT : 


dec  1 a r at i on 


DESCRIPTION: 


See  PILE  declaration/  ARPAY  declaration/  simple 
declaration/  orocedure  declaration/  and  function 
dec  1 a r a t i on  . 


FILE  dec  I ar  at i on 


tLEMLNl : 

FILE  dec laratio^ 

FORMAT  : 

FILE  identifier  { ( e xp res s i on  ) } I, identifier 
i(e*pression)M  ... 

DESCRIPTION: 

The  identifiers  used  in  the  FILE  declaration  are  file 
identifiers  which  reference  actual  tile  names.  The 
actual  file  names  may  De  assianed  at  comp  1 1 e-t i me  or 
at  run-time.  The  ootional  integer  expression 

following  the  file  identifier  is  used  to  scecify  the 
record  length  in  bytes  for  blocked  records. 

example: 

FILE  TAPE!,  TAPEEfl?b); 


] 
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F OK  s t a t emen t 


ELEMENT: 

FOR  s t a t emen t 

FORMAT: 

{label  definition!  FOR  assinnment  s t a t emen t 

{STEP  expression}  UNTIL  expression  DO  simole  statement 

DESCR  I P T TON : 

Execution  of  all  statements  within  the  simole 
statement  are  repeated  until  the  inaexina  variac'e  is 
greater  than  or  eaual  to  the  value  o*  tKe  UNTIL 
expression.  The  indexing  variabl®  is  incremented  bv 
the  amount  specified  in  the  STEP  expression  and  must 
be  incremented  by  a Positive  amount.  The  UNTIL  and 
STEP  expressions  are  evaluated  on  each  loop.  Tf  the 
optional  STED  expression  is  omitted*  a default  value 

of  one  is  used. 

•> 

EXAMPLE: 

FOR  I :=  1 STFP  1 UNTIL  10  DO 

x :=  y; 

FOR  INDEX  :=  X ♦ Y UNTIL  X * Y 00 
BEGIN 

A :=  a ♦ R; 

WRITE  ( A ) ; 

end; 


funct ion  call 


ELEMENT: 

tunc t i on  c a 1 1 


FORMAT: 

identifier  {(expression  { » e x p r es s i on } ...)} 


DESCRIPTION: 

Functions  may  acoear  as  primary  elements  in  arithmetic 
or  ooolean  expressions.  Parameter  oassina  is  ov 
value.  Functions  may  be  called  recursively  with  no 
limit  to  fhe  nuroer  o * recursive  calls  allowed. 

tX  AMPLE : 

x :=  ramq; 

y :=  SuRris.o); 

C :=  FUNC  * RMD(2); 


function  declaration 


ELEMENT : 

function  declaration 


FORMAT: 


INTFGER ! DECIMAL ! STRING  FUNCTION  identifier 
{(identifier  {/identifier! 

{ dec  1 a r a t i on ; ...>  simple  statement? 

DESCRIPTION: 

A function  declaration  may  or  mav  not  include 
parameters.  If  parameters  are  included  ttev  must  be 
declared  before  the  simnle  statement  which  represents 
the  body  of  the  function.  Parameters  are  oassed  Dv 
value  and  may  be  of  type  inteoerr  decimal/  or  string. 
Functions  return  a value  to  the  ooint  of  call.  Tne 
value  to  be  returned  is  assigned  to  the  function  name 
(which  is  user  as  a simple  vari aol e within  the 
function)  prior  to  the  end  of  the  function.  Functions 
may  be  called  recursively  with  no  limit  set  as  to  the 
number  of  recursive  calls  which  can  be  made.  Variables 
may  be  declared  within  functions  ano  are  considered 
local  to  fhe  function. 

EXAMPLE : 

INTEGER  FUNCTION  VAluF(v); 


<->u 


GOTO  statement 


ELEMENT: 


GOTO  s t a t ement 


FORMAT : 


laoel  definition  GU  TO  idunt i f ier! integer 
laoel  definition  GOTO  i den t i f i e r J i n t eae r 


DESCRIPTION: 


Execution  continues  at  the  statement  labeled  with  the 
identifien  or  integer  *o11owina  the  GOTO  or  GO  TO 
st  at  emen  t . 


EXAMPLE: 


NEXT;  GO  TO  100? 


100:  GOTO  NEXT; 


PROGRAMMING  NOTE: 


GOTO  statements  can  onlv  be  used  to  oranch  w 1 t h i n tne 
Current  oloc*  or  to  an  outer  block. 


i dent i f i er 


ELEMENT  : 

i dent i f i e r 

FORMAT  : 

letter  { 1 e 1 1 e r 1 n unde r 1 ... 

DESCRIPTION: 

Identifiers  oegin  with  a letter  ana  are  continued  with 
any  a 1 ohanumer  i c characters.  Althouah  identifiers  uo 
to  25S  cnaracters  -nav  he  used,  only  the  first  St 
characters  are  actually  used  to  aistinguisn  toe 
identi f i e r s . 

Example: 

A 

NAME 

COUNTER  1 


I E s t a t ement 


ELEVEN  1 : 

IE  statement 


UFSCR  TPT ION : 


i 

i 


oa 


) aoe ) definition 


ELEMENT: 


label  definition 


FORMAT: 

identified  infenen  : 

DESCRIPTION: 

Label  definitions  are  optional  on  all  balanced 
uncalanced  statements. 

EXAMPLE : 

FINISH: 

100: 


O r 


procedure  cal) 


ELEMENT  : 

procedure  call 

FORMAT  : 


identifier  ((excression  i , express i on > ...)} 

' 5 
I, 

DESCRIPTION:  j 

Procedures  can  be  called  w i t h or  without  oarameters.  j 

Parameter  oassino  is  bv  value.  Proceaures  can  be 
called  recursively  with  no  limit  set  as  to  the  number 
of  recurs i ve  calls. 

EXAMPLt:  I 

J 

COMPUTE; 

COMPAPEfAAA"  , IftORD); 

COUNT (1,  2,  3); 


t 

i 


' 


\ 

l 


m 


procedure  aeclaration 


ELEMENT: 

procedure  Declaration 


FORMAT; 


PROCEDURE  identifier  {(identifier  { , i dent i f i er > ...)} 
{declaration;  ...1  simple  statement 


DESCRIPTION: 


A orecedure  aeclaration  «av  or  may  not  include 
parameters.  If  parameters  are  i nc 1 uaed  they  must  be 
declared  before  the  simole  statement  which  represents 
the  body  of  the  procedure.  Parameters  are  oassed  by 
value  and  may  be  of  type  inteoer,  decimal  or  string. 
Procedures  do  net  return  a value  to  the  point  of  call. 
Procedures  can  be  called  recursively.  Procedures  are 
considered  serarate  blocks  within  which  local 
variables  may  oe  declared. 


EXAMPLE: 

PROCEDURE  OUTPUT; 

WRITE  f "HELLO"  ) ; 

PROCEDURE  C0MPAPE(X,Y1; 

INTEGER  X , Y ; 

BEGIN 

WRITE("THfc  LARGEST  INTEGFR  IS  " ) ! 
IF  X > Y THEN 
wRITE(X); 

ELSE 

WRITE(Y); 

end; 
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READ  statement 


ELEMENT: 

READ  statement 

FORMAT : 

READ  (variable  (»variable>  ...)  (OnENPFTlE  block} 

DESCRIPT  ION: 

If  the  form  of  the  READ  statement  is  pEAQf,  then  the 
input  device  is  the  console.  Otherwise  a file  oction 
must  be  soecified  and  the  input  device  is  the  disk.  A 
READ  statement  reads  one  or  more  variables  at  a time. 
The  ootional  ONENOFILF  s<  indicates  action  to  be 

taken  when  the  end  of  the  specified  file  is  reached. 

EXAMPLE: 

REAOCWUROONE,  X,  VALUE  2 1 » 

READ  FRE3  UORDUNE,  X,  VALUE?): 

PROGRAMMING  NOTE: 

The  ONEMDFILE  section  is  curently  not  implemented. 


i 

i 


reserved  woro  list 


ELEMENT: 

reserved  word  list 


FORMAT  : 

letter  {letter}  ... 


DESCRIPTION: 

The  following  words  are  reserved  by  ALGOL-M  and  fav 


not  be  used  as 

i dent i tiers 

• 

AMD 

ARRAY 

BEGIN 

CASE 

CLOSE 

DECIMAL 

DO 

ELSE 

END 

External 

FILE 

function 

DO 

GOTO 

IF 

TNITTAL 

INTEGER 

NOT 

OF 

ONENDFILE 

PIC 

PROCEDURE 

READ 

STEP 

STRING 

TAB 

THEN 

TO 

UNTIL 

WHILE 

WRITE 

inRITEON 

Reserved  words 

must  be 

preceeded 

and  fell  owed 

either  a special  character  or  a srace.  Soaces  i"av  not 
be  embedded  within  reserved  words. 


Q9 


I 


simple  statement 

ELEMENT: 

simple  s t a t emenf 

FORMAT: 

bl ock ! ass i gnment  statement ! for  statement! 
case  st atement ! c 1 ose  statement laoto  statement ! 
while  statement ! read  statement |wri te  statement! 
procedure  c a 1 1 ! i den t i * i er 

DESCRIPTION: 

All  ALGOL-M  statements  are  free  torm  and  must  be 
separated  by  semicolons. 
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simple  declaration 


ELEMENT: 

simple  declaration 


FORMAT: 


INTEGER!DECIM4L!STRTNG  {(identifier! int ege r ) > 
identifier  ( > i aen t i f i e r > ... 

DESCRIPTION: 

Simole  infeaer  variables  may  he  any  value  between 
- 1 to » 3*4  and  + 16»3tJ4.  Simple  decimal  variables  can  be 
specified  as  anv  length  from  one  to  IP  diaits  witn  a 
default  length  of  10  digits.  Simple  strinq  variables 
can  oe  specified  as  anv  lenotb  from  one  to  ?55 
characters  with  a default  lenoth  of  10  characters. 

EXAMPLE: 

INTEGER  X; 

DECIHALMS)  x,y; 

STRING (33)  W0PD0NE,  aORDTWO,  WQRDTHREE  f 
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snecial  characters 


ELEMENT: 


soecial  characters 


DESCRIPTION: 


The  following  sceciai  characters  are  used  by  ALGOL-”: 
( ooen  oarenthesis 
) close  parenthesis 
* asterisk 
t plus 
- m i nus 
: colon 

; semicolon 
< less-than 


> greater-than 


eoua  1 


* comma 
l ooen  bracket 
1 c 1 ose  cracket 
:=  assignee  equal 
**  exponent i at i on 
X percentage 

Any  snec i a 1 character  in  the  ASCII  character  set  may 
aopear  in  a strino.  Special  characters*  other  than 
those  listed  above*  will  cause  an  error  corai t ion  if 


used  outside  of  a strino. 


I <12 


T^B  expression 

ELEMENT: 

T AB  express i on 

FORMAT: 

TAB  express i on 

DESCRIPTION: 

TAB  is  optionally  used  in  a oRITE  statement  to  cause 
spacing  on  the  outout  line.  The  amount  of  spacing  is 
scecifieo  bv  tne  inteoer  expression  following  1AB. 

EXAMPLt: 

rtPITEC"NtXT  NAME",  TAR  S,  NAME  1 1 J ) * 
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unbalanced  statement 


ELEMENT : 

unbalanced  statement- 

FORMAT: 

{label  definition)  TF  boolean  expression  ThFN  statement 

{label  definition!  TF  boolean  expression  ThFN  balanced 
statement  ELSF  unbalanced  statement 

OESCHTPT ION: 

Unlike  the  balanced  statement  that  will  always  have  a 
balanced  statement  on  either  side  of  the  ELSE  in  an  IF 
THEN  ELSE  structure*  an  unbalanced  statement  may  not 
even  include  tne  ELSE  portion  of  the  statement. 

EXAMPLE: 

IF  S > Y ThFN  rtRITEfX)? 

IF  X < Y THEN 
IF  L > i Then 
nRITECZI 
ELSE 

wRITEf X) ; 


variable 


ELEMENI : 

variable 

FORMAT : 

identifier  ((hound  oair  HsMl 

DESCRIPTION: 

A variable  in  AL  GOL-M  may  be  simple  or  suhscript-ed  and 
of  f yoe  INTEGER,  DECIMAL,  or  STRING. 

EXAMPLE: 

X 

VALUE  r^i 
Zll.X  * Y 1 


WHILE  statement 


ELtMENI : 

WHILE  staf  emen  t 


FORMAT : 


WHILE  Boolean  exoression  00  simple  statement 


UESCRIPT I On: 


WHILE  statements  continue  executing  t * e 
statement  fol lowina  t^e  for  as  long  as  toe 
expression  is  true. 


Example : 

WHILE  I > 0 00 

I : - T - l ; 

WHILE  x > 5 AND  r <>  « 00 
BED  T N 

a :=  x / 3; 
w° I TE  f X 1 ; 

end; 


simple 

Fool een 


1 Ob 


I 


nR  I Tfc  st  a t e*en t 


ELEMENT: 


WRITE  stat  e»en t 


FORMAT: 


>vR  1 TE  ! nR  I TON  (tile  notion) 

(exoressionltac  exc^essionioic  definitionjstrino 
{, express i on J t ab  *xoression!oic  ae f i n i t i on ! s t r i ng ) 


DESCRIPTION: 


The  wRITE  option  indicates  t'a  output  will  start 
printino  on  a new  1ine»  while  the  WK I T EON  option  will 
continue  orinMnq  on  in»  same  line.  It  the  for*  of 
the  statement  is  .*■'  R T T E ( on  w R T T E 0 N ( , tne  output  aevice 
is  the  console.  '"’therwiser  a tile  oot  ion  must  ce 
soec i t i eo  ana  the  outout  device  is  the  disk. 


example i 


WRITE (X ) ; 


wR I TE  f " ThE  N U m b E W IS",X  + Y); 


wRITE(man.Sx>ER",  fid  5,  x * Y); 


PROGRAMMING  NOTE: 


The  PTC  definition  is  not  currently  inolerenteo. 


107 


APPEND  T X £ ALGOL-M  LANGUAGE  SfPUClURF 


In  the  followina  sections*  the  syntax  of  the  lanauage 
will  be  listed  in  BNF  notation  followed  by  the  semantic 
actions  (offset  with  asterisks!  associated  with  that 
production.  The  descnotion  will  be  given  in  terms  o* 
compiler  oata  structures  and  the  ALGOL-tf  machine  code 
generated.  Items  enclosed  in  brackets  and  separated  bv 
slants  are  alternative  semantic  actions.  N/A  indicates  no 
action.  This  notation  is  similar  to  that  used  in  REF  h and 
RFF  10. 

1 <oroqram>  Its  <block> 

*<block>;  x T T ; (eof  indicator! 

2 <block>  <block  heao>  <block  eno> 

*<block  head>;  <block  end> 

3 <Mock  head>  ::  = <blocx  head>  <dec  1 arat  i on>  ; 

*<block  head>;  <dec 1 a r a t i on> 

<4  ! <beo i n > 

*<b 1 oc  k> 

5 <beain>  begin 

*RLT 

b <b!ock  end>  = <hlock  hodv>  J end 

*BLD 

/ <block  body > ::=  <statement> 

*<  s t a t emen  t > 

6 <b 1 oc k body>  ; <sf ateffent> 

*<olock  boov>*  <statement> 

9 <dec 1 arat i on>  <fi1e  declaration> 

*<file  declaration? 


13 


I dimple  declaration* 

♦ dimole  declaration* 

11  I dimple  declaration*  <initial  ootion* 

♦ dimole  declaration*?  <initia!  oction* 

12  J <arrav  declaration* 

*<array  declaration* 

13  ! <arrav  declaration*  <initial  option* 

*<array  declaration*?  <initia!  option* 

14  | <subproaram  declaration* 

♦ duborogram  declaration* 

15  ! dxternal  declaration* 

♦(Not  i mpl evented) 

16  <simole  declaration*  declaration  head* 

< i dent i f i e r > 

♦ declaration  head*?  LIT  (identifier  aadress) 

♦ (At.  D / A L 8 / N/A  for  i nteaetsl 

17  < i n i t i a 1 ootion*  ::=  <initial  head*  <constant*  ) 

*<initial  nead*?  donstant* 

18  <initial  hear*  ::=  initial  ( 

N/A 


lq  | < i n i t i a 1 head*  <constant*  , 

*<initial  head*?  <constant> 


23  <declaraticn  head*  <declaration  tyoe* 

*<dec 1 arat i on  tvoe* 

21  ! declaration  nead*  <ioent  i f ier* 

21 

♦ <dec 1 a r a t i on  head*?  LIT  (identifier  aadress)? 
♦fALO/ALS/  N/A  for  integers) 


22  declaration  type*  strina 

♦TM1  (strinc  default  site)? 

23  f strjnq  <si?e  ootion* 

*<si ze  opt i on* 

24  lint  eaer 
N/A 

25  J dec i "a  I 
♦TMt  (decimal  default  size)? 


26  ! decimal  <size  option? 


*<  s i ze  option? 

27 

<s i ze  option?  : : = 
♦LITLOAO  (variable 

( <va  r i ab 1 e?  ) 
address) ; 

28 

1 

t 

*< i nteger? 

( <integer?  ) 

1 


2*?  <statement?  ;:  = <oalanced  stst»ment> 
*<balaneed  statement? 

30  ! <unba1aneed  statement 

*<unba I ancert  statemant> 


31  <balaneed  statement  ::=  <si"»Dle  sf  ate"»ent> 
*<simole  statefnant> 

3?  ! <if  clause?  <true  oart>  else 

32  <balancea  s t at emen t > 
*<if  clause^!  <frue  parf>;  <balanced  statement? 

33  ! <label  definition? 

33  <balanced  statement* 

*<label  definition?;  <balanced  statement? 


! 


1 

I 


3^  Unbalanced  statement?  ::  = <if  clause>  <statement? 
*<if  clause?;  <statement? 

35  ! <i*  clause?  <true  nart> 

35  else  <unbalanced  s t a t emen t > 

* < i f clause?;  <true  part?;  <unbalanced  statement? 


36  ! <label  definition? 

36  <unbalancea  statement? 

*<laoel  definition?;  Unbalanced  statement? 


37  <true  oart>  ::  = <balanced  statement? 
*<balanced  statement?;  8RS  (adaress  of  end  of 
•current  statement! 

38  <laoel  definition?  :t  = <ioentifier?  ; 

N/A 

39  1 < i nt eae  r?  : 

N/A 


ao 


<simcle  statement? 
*<blocK> 


• * 2 


<b 1 oc  k ? 


ai 

1 

§ 

*<assignment  $tatement> 

<assiqnment  statement* 

42 

*<for  statement* 

1 

> 

<for  statement* 

43 

♦ <whi!e  statement* 

1 

1 

Anile  statement* 

aa 

*<read  statement* 

• 

1 

<read  statement* 

as 

♦Arite  statement* 

1 

• 

<wri te  statement* 

46 

*<case  statement* 

1 

« 

<case  statement* 

47 

*<go  to  statement* 

1 

1 

<ao  to  statement* 

48 

*<c1ose  statement* 

1 

1 

<close  statement* 

4<? 

*<procedure  cal  1 *; 

1 

1 

pro; 

<orocedure  cal  1 * 

50 

t 

i 

< i dent i f i er* 

*IM?  (subroutine  address};  PRO;  POP; 


51  Assignment  statement  ::  = <le*t  part>  Axoression* 

*<left  oart>;  <»*oression>;  ISIT/SID) 

52  1 <1  eft  part> 

52  Ass-ianment  state«ent> 

*<)eft  nart>;  Assianment  statement> 


53  <lett  oart>  <variable>  j; 

*<variable>;  (LTT/LTTLO^OI 


54  Axpression*  Arithmetic  e*pression> 

♦ Arithmetic  ?*rression> 


55 


{ < i f express ion>  Axpression* 


N/A 


56  Arithmetic  expression*  : 
* < t e rm> 


= < t e r*> 


1 1 1 


57 


i Arithmetic  e«oression>  t 


1 1 . 111  wunmnmpiii 


57 


<tern»> 

♦Arithmetic  f*oression>;  <t erm>;  l AD I /ADD} 


• Arithmetic  expression) 
<term> 

*<ar  i *■  huef  i c exoression>;  <t erm>;  15BT/SB0} 


59 

59 


bO 


6 1 


i Arithmetic  expression) 


! <ter»> 


♦Arithmetic  exoression);  <term>;  CAT; 


I — 


*<term>;  N£G 


*<terr> 


<term> 


! + <term> 


bP  <term>  :;s  <oriniarv> 

*<p  r i ma  r y > 

! <term>  * <primary> 

♦<term>;  <pri»ary>;  l^LI/VLDJ 

I <term>  / <Dr j mary) 

*<term»;  <primary>;  IDwT/DvOJ 

65  <prjmary>  ::  = <primary  element) 

*<prjnary  element) 

66  ! <primary>  ♦ * <orimary  element) 
*<primary>;  Arimarv  element)’  TXP 


67  <priirary  element)  ::=  <variahle> 

♦LITLOAD  {address  of  simple  variable*/  N/A  for 
♦subscripted  variables/  I M 2 isubrount i ne 
♦address  in  code  areal;  PRQ 


bfl 


b9 


70 


71 


*<const an) > 


*<procedure  call> 


*Ass i gnment  statement 


* Axpress i or> 


<Cons  t ant  > 

<procedure  call> 
f <assignment  statement)  j 
f <expressi on)  ) 


72  <c©nst  ant)  ::  = <inteaer> 
♦I  NT;  {constant} 


112 


-a*  v 


73 


5 <decimal> 

• DEC? 

{constant } 

J <s  t r i nq> 

* s T p ; 

{constant  > 

75  <variable>  <identifier> 

ft/ A 

76  ! Subscripted  variab1e> 
•Subscripted  variable> 


77 

<f  i 1 
* { no  t 

e dec laration>  :: 
i mp 1 ement  ea! 

= < f i 1 e head> 

< f i 1 e name> 

78 

<f  i 1 
* {not 

e head>  ::=  file 
implemented! 

7P 

* <not 

1 < f i 1 e 
i mp 1 emented) 

heao>  < f i 1 e 

name>  « 

80 

<f  i 1 
* { no  t 

e na*e>  ::  = <strino>  <length  ontion> 
i mp 1 emen  t eal 

81 

* (not 

f <s  t r i no> 
i mp 1 e*enteo> 

82 

* {not 

! <1  rlent  i t { er>  < 1 engt  h ootion> 

i mp 1 ementeol 

83 

* { not 

! < i dent i t i er> 
i mp 1 emen  t ea) 

8<1 

<lenoth  ootion>  = f 

* (not  i mp 1 eren t ea ! 

< i dent i f i e r > 

] 

8*5 

* {not 

! r 

i mp 1 ementeol 

< i nteger>  1 

86  <array  declaration>  ::=  Srr av  list>  j 

66  <bouna  pair  list>  ] 

*Srraylist>?  Sound  pair  list>»  j 

• LIT  (#  of  arrays^)}'  LIT  (type  of  , ] 

•array) J j ] 

* Toll o«ed  bv : ! j 

(1)  LTT  {array  location!  * 

(2)  m = m-l  if  »s0  then  halt  else  steo(l) 


1 1 3 


H 


87 

<arra y 

li  sf  > 

;:=  <arr ay  head>  <identifier> 

*<array 

head> 

88 

<array 

head> 

;:s  declaration  tyoe>  array 

*<dec 1 arat i on 

tvpe> 

89 

! <arrav  head>  <identifier>  , 

*<arra y 

head> 

90 

<bouna 

pair 

list>  ::  = <bound  pair  head> 

90 

<bound  pa i r > J 

*<bouna 

pair 

Head>»  <bound  oai r> 

91 

<bouna 

pa  i r 

head>  : ; = t 

N/A 

92 

! <bound  pair  head>  <bound  Dai 

♦ <bound 

pair 

Pead>»  <bound  oai r> 

93 

<bound 

oa  i r > 

;;=  <exoression>  ; <e*pression> 

94 

94 


95 


96 


97 


98 


99 


*<e*press  i on>  ; <e»p('ession> 

<suosc r i oted  variable>  ::=  <subscript  Head> 

<#*ori»ssiori>  1 

*<subsc riot  head>;  <e*press i on> ; 

♦ L1TL0AD  <arrsy  adaress>»  SIJW 

<subscrirt  head>  = <identifier>  ( 

N/A 

} <subscript  head>  <expression>  , 
*<sub script  head>»  <exopession> 

. <go  to  statement>  = <qo  to>  <identifier> 

♦ OCB  { t*  of  blocVs  to  dec  remen  t } /NOP  * NOP 
‘followed  ov  BPS  (branch  aadress) 

! <qo  *:o>  <integer> 

*OCB  (»  of  blocks  to  dec  remen t > /NOP ; NOP 
♦followed  by  BPS  (branch  aodress) 

<go  t o>  ! : - ao  to 
N/A 


100 


! aoto 


N/A 


101  <read  statement>  <reaa  nead>  <variaole>  ) I 

*<read  Heaa>;  LTT/LITLQAD  {address  of  variable!;  j 

♦POT/PCT;  3TD/SD0/SS0  j 

*i  f console  1/0  then  FCP  ] 

i 


102 

<read 

*RCN 

heao>  t : = read  C 

103 

* {not 

! read  <*ile  oDtion>  ( • 
i *p 1 evented! 

1 04 

*<reari 

! *read  Head>  <variable>  / 
head>;  same  as  p roduc t i on  ' 1 0 1 

105 

<write  statement>  = <wr ite  head>  <exoression>  ) 

*<w r i t e nead> ; <expression>?  (wIC/rtDC/lflSC/wID 
*WDD/W 1DJ 

106 

* ( no  t 

! <wri te  Head>  <tab  e*pression>  ) 
i mpl ement  ed! 

1 07 

* (not 

! <wri te  heaa>  <pic  definition>  ) 
i mpl ementea! 

108 

<wr i te  nead>  ::=  write  ( 

* OMP 

1 05 

* (not 

! write  <file  ontion>  ( 
implemented! 

110 

N/A 

! wri teon  ( 

111 

* { not 

i writeon  <file  ootior>  ( 
i mp 1 emen  ted! 

112 

! <write  Head>  <e»pression>  t 
*<wrj  te  head>;  <e*pression>;  tLI T/LI TL0AD1 

113 

* {not 

1 <write  head>  <tab  expression>  , 
i mp l emen  ted! 

11“ 

* {not 

! <write  head>  <pic  definition>  , 
implemented! 

1 15 

<f  i 1 * 
N/A 

option>  <identifier> 

116 

N/A 

1 <identitier>  <rec  option> 

117 

N/A 

! <st  r i nq> 

1 18 

N/A 

! <strino>  <rec  option> 

115 

<rec 

op  t i on  > , <ioentitier> 

, N/A 

I 


115 


120 

N/A 

1 

1 f 

<i nteoer) 

121 

<o  i c 
* (not 

definition)  ; : 
i mpl emented! 

= <pic  head>  <pic  list)  ) 

122 

<pi  C 

* (not 

head)  : : = pic 
i mp 1 eren t ed> 

<$  t r i ng) 

123 

* {not 

1 Die 

i mp 1 emented! 

< i dent i f i er> 

12a 

<pi  C 
* ( not 

lisr>  ::=  ( <expression> 
i mpl emented! 

125 

* (not 

! <d  i c 

i mpl emented! 

list)  , <expression> 

126 

<t  ab 
* { not 

expression)  :: 
i mpl emented! 

= tab  <exoression) 

127 

<if  clause)  ::=  if  cboolean  expression)  then 
*<boo'ean  expression);  RSC  ipranch  aadressl 

128 

< i f 
•(not 

express i on)  : : s 
i mpl emented! 

<if  clause>  ^expression) 

12* 


130 

130 


131 


132 


133 
1 33 


13a 

13*5 


<booiean  expression)  ::  = <boolean  term) 

*<boolean  term) 

! <boolean  exDression>  or 
<boo lean  term) 

*<boolean  expression)?  <boo 1 ean  ter">>?  RUR 


<boo 1 ean  tern)  : : 
*<boolean  primary) 


= <boolean  orimary) 


} not  <boolean  primary) 
*<bnol ean  primary);  NOTP 

{ ^boolean  term)  and 
<boolean  primary) 

*<boolean  term)?  <boo' ean  primary)  ANbQ 

<bcolean  primary)  ::  = <logica)  expression) 
*<logical  expression) 


( <boo’ean  expression)  J 


*<boolean  expression) 


<logical  expression)  oxoressicn)  <relat’on> 

<exoress i on) 

* <express i on> ; <express i on) * Isrrino, 

•or  decimal  relational  operator! 


I 1 6 


1 36 
136 


i nteger# 


140  ! <COmp> 

N/A 


1 4 1 <como>  : : - < > 

N/A 

142  1 < = 

N/A 

143  ! > = 

N/A 

144  <*hile  statefeot>  ::  = <while  clause*  <do  statement* 

*<whi1e  clausi*>;  <do  s t at  suenf  > ; BRS 
★(branch  location) 

14*5  <whi1e  clause*  = <while*  <boolean  exDn?ssion> 
*<boo1ean  excression*;  BSC  (branch  address) 

1 4fe  <*hi1e>  : : = while 
N/A 

147  <for  statement  = <fo r clause*  <steo  exoression* 
147  <until  clause*  <do  statement* 

*<for  clause*)  <steo  exrression*;  <until  clause*; 
*<do  statement*;  PRS  (branch  address) 

140  <for  clause*  = for  <assianment  statement* 

*<assignment  statement*;  PRS  (branch  address); 

‘LIT  (counter  variable);  LITLOAD  (counter  variable) 

1 44  <steo  expression*  ::  = step  <exoression> 

*<expressiom>;  AOT;  STO;  LITLOAD  (counter  variable) 

150  <unt i l clause*  = <until  non-term*  <expression> 
*<until  non-term*;  <expression>!  LtQ»  bSC 
★(branch  address) 

151  <until  non-ter">  ::  = until 

*T1M1  (one);  AD  T ; STD;  LITLOAD  (counter  variable)/ 
N/A  if  there  is  a sfeo  expression! 

152  <do  statement*  ;:=  do  <simole  statement? 

*<simple  statement? 


I 

M7 


153  <c1ose  statement> 
• {not  implemented) 


e 1 ose  < i dent i f i er> 


154  i <close  statement>  , <idenrifier> 
• {not  implemented) 

155  <suborogram  declaration>  ::  = Subprogram  neading> 

155  <simple  statement> 
*<suborogram  Headina>?  <simple  statement!  LIT 
•(subroutine  PRT  address)?  UNS?  RTN;  LIT{S8P)? 

•LIT  o;  3 ID? 

156  <suborogram  Headinn>  = <function  heading> 
*<function  heaoi na> 

157  1 <oroceaure  Headina> 
•<procedure  heading> 

1 58  < funct  i or  Heaoi  n o > ? ? = <oaramless  funct ion> 
*<param! ess  funct i on> 

15P  1 <funcf  ion  ii  params> 

•<function  rarams>»  SV2 

loO  <procedure  heading>  ::=  <paramless  proc> 
*<paramless  proc> 

lfal  ! <proc  R oarams> 

*<proc  R oarams>»  SV2 

1 o2  <paramless  function>  <rlec  I arat  ion  tyoe> 


1 62 

*<dec 1 arat 

ion  type> 

f unc t i on 

< i dent i f i er> 

1 b3 

< f unc  t i on 

R oarams> 

: ? = < f unc  t i on 

heao> 

163 

*<  f unc  t i on 

Heao> 

< i dent i f i 

e r > ) ; 

16<J 

J <f unc  t i on 

R rarams> 

16« 

<dec 1 a r a t 

A 

C 

o 

*<  f unc  t i on 

carams>; 

<dec 1 arat i on> 

165 

< f unc  t i on 

Head>  : := 

<dec 1 a r a t i on 

tvpe>  function 

165 

•<oec 1 arat 

ion  t yoe> 

< i den  t i f i e r > 

( 

166  i <function  head>  <ioentifier>  , 

• < f unc  t i on  Head> 

lo7  <paramless  oroc>  li~  procedure  <identifier>  ? 

• TM1  {parameter  count)?  IM1  {local  variable  6. 
»nara*efer  offset);  LIT  {base  of  PCR)?  SA V ; BLI 
•if  tHis  is  a non-integer  function  then 
♦LITLOAO  {lenatH  of  return  value)? 

•LIT  {PRT  address  of  function);  lALb/ALS) 


5 


1 1 6 


i&e 

it)fi 

lpP 
1 o<9 

1 70 

171 


<proc  * oaraws>  ::=  <procedure  6ead>  < i aen r i f i e r> 

) ; 

*<procedure  head>?  sa^s  as  production  167 

! <p roc  & cara*s>  <oec 1 arat i on> 

r 

*<proc  oaraes*?  <dec 1 a ra t i on> 

<p r oc edu r e h»ad>  ::  = procedure  <identifier>  ( 

*8LT ; 

| <procerlure  nead>  <iofnti  f ier>  » 


N / A 


17 2 <pro cedure  caM>  ::=  <call  heading>  <e*pression>  ) 

*<call  heaaina>;  <e*o r e s s i on> ? IM2 
* 1 address  of  subroutine  in  code  area/?  PKO 

173  <cal1  headina>  :?  = <iaent i f ier>  ( 

N/A 

174  J <ca11  heading>  <expression>  , 
»<e«oress i on> 

1 7 *5  < dec)aration>  ::=  <dee1aration  tyoe>  external 

175  function  <external  list> 

* (not  i td 1 erent eg) 


1 76 
176 

*fnot  i mo  1 ere"  t ea> 


external  procedure 
<external  1 i st> 


177  ^external  list>  <identifier> 

»{not  iipplerentrdl 

17g  ; <external  list>  § <i dent i f i er> 

* (not  i rpl erentndl 

1 76  <case  s t a t emen  t > = <case  heading>  <case  block> 

*<case  headino>:  <case  blnck>; 

* Ho  n t i mes fn  = number  of  statements  in  case  block) 
BPS  {address  of  case  s t a t emen t ( n ) 1 

160  <c ase  6eadino>  ::=  case  <expression>  o* 
*<exoressi on;  LTT  {3>?  *PI? 

‘(address  o*  end  of  case  block)?  SoR;  BRA 

161  <case  block>  ::=  Begin  <case  Block  ooov>  ? eng 
N/A 


162  <case  block  body>  ::=  <statement> 

*<sta'ement>?  BRS  {address  of  end  of  case  Block) 

! <case  Block  Boov>  ; <statement> 
♦same  as  production  lBc 


163 


ALGOL- M PROGRAM  LISTINGS 


f 


i 


lOOh’  point  for  rcppl  l.-r*- 

/■*  x»XXXXX*X*XiXX*XXXx-.vr.^x'.ii-*.'.'xXXXX.XXx-xxxxiii.XXXXXXXXXXxrxXT.X*  X/ 
/X  XXXXXXXXXX  JV3t«.|,  1 Item's  xxxxxxxxxx  ■*./ 

/X  XXXXt*X****X**XXXrKTXX..im.>;x:<x:-.*XXXXX.A.txx**X.XX**X*XXX**X*XX.XX  */ 


dec  tare 


false  literally  O . 

true  1 1 t»M-a  1 I v 1 ‘ 

tit  literally  I 1 I e pa  I 1 y ' . 

bdoa  lit  '5U‘.  ■'*  entry  point 

stnrfhdos  address  1 n 1 / i a 1 < 6h>  . *ad 


boo  t 

1 1 t 

. S*  eT 

pe  tacks  Ize 

1 1 1 

ta  • . 

Intreca  lze 

1 1 r 

• 128'  . 

dc  l 

1 1 1 

'dec  1 a re  ’ . 

proc 

1 1 t 

' pro ced ure 

f 1 leeo  f 

1 1 1 

' 1 ' . 

rf  1 le 

1 1 1 

’ 20 ' . 

(dents  lze 

! i t 

'32'  . 

addr 

1 1 t 

' address ' . 

forever 

1 1 t 

' whi le  true ’ . 

vjrcs  lze 

1 1 t 

' 100'  . 

Index* lze 

1 l t 

' address  ' . 

s ( a tea lze 

I 1 t 

' address  ’ , 

tna  to  nc  o un  t 

1 1 1 

'23  ' . 

cr 

1 i t 

' 13'  , 

If 

1 1 1 

' 0ah‘  . 

s tr  Inside  1 1m 

1 1 t 

' 22b*  . 

quea  t lonnmrk 

1 1 t 

‘ 3f  h'  . 

tab 

1 It 

’09h' . 

co  lln 

1 1 t 

' 3ah'  . 

c o mme  n t 

1 1 t 

'O'  . 

conbuf  fa lze 

1 i t 

•82’  , 

to  Ichar 

1 l t 

'0dh'  , 

haalit  h Is  lze 

1 1 t 

' 64 ' , 

sourcerecs  lze 

1 1 t 

* 128* , 

ha*  tuna  sk 

1 1 t 

'63  ' . 

con  tchar 

1 1 t 

' 3c  h'  . 

eo  f f 1 1 ler 

1 1 t 

’ lah'  , 

percent 

l l t 

' 23h'  : 

to  disk  operating  system  x/ 
■ir  of  ptr  to  top  of  ti»s  *s 

‘ to  return  to  operating  sys 
• > stack,  sizes  for  parser  */ 


tem 


*/ 


declare  maxrno 

literally 

' 132 

* ./*  max  read  count  *s 

maxi  no 

1 1 tern  1 ly 

• 190 

' , /*  max  look  count  *s 

maxpno 

1 1 tera  I ly 

' >90 

’,/*  max  push  count  *s 

maxsno 

1 1 tera  1 ly 

*373 

. * max  state  count  */ 

starts 

1 1 tera 1 ly 

' I ' , 

start  state 

prodno 

1 l tera  Lly 

' 183 

' ,- * number  of  productions 

• FBlC 

1 1 tera  1 1 y 

•»'  . 

'*  Semico  Ion  *•/ 

co lone 

I 1 tera 1 ly 

' 13' 

,/*  colon  * 

doc 

1 1 tera  I ly 

• 18' 

. /x  do  */ 

eo  fc 

1 1 tera  1 1 y 

'24' 

not  *■' 

endc 

literal  l y 

' 2* ' 

• » nd  * / 

string 

literally 

'4  r 

, string  *' 

dec Ima 1 

literally 

•32' 

decimal  *' 

1 n t egerc 

literally 

' 33 ' 

- '*  Integer  t- 

prr>cr 

l 1 tera  1 ly 

'34' 

. /*  procedure  ft' 

Identifier  lit  ' 33 ’ 

, s'*  Men  t If  ter*/ 

t o r »n'» 

1 1 tera  1 ly 

•33’ 

: '•  * terminal  onnnt  * 

declare  shloc  address  1 n 1 1 1 a I ‘ , 

S'*  nre»  buff  based  «hln."  «iiir'",r'r*  it.*  1 byte, 
S'-nreeptr  byte  i n 1 t 1 a 1 1 s..  itreerecs  Ize  ) , 

b u f f p t r byte  l n I t 1 a I ( Lit*  3 t , 

er r o rco un  t add  r ■ »s  i n t t I a 1 *>  • 

1 1 nebrt  f f < conbuf  f s 1 zc  i byte, 

1 I nep  t r byte  I n i t 1 :<  I < 0 * . 


| 


t 

i 


i 


J 


1 


1 LM» 


l 


! 1 a«  no 
pass  1 
pass2 
no  I n t f 1 1 e 
r f c baddr 
rfob  baaed 
wf  c b(  33) 

cnr»ourrep«cii  Ire 
no  look 
produc  t ion 
arrt  loo  I 3 ) 
arrSnmn 
sublprncl loc 
sublprorlvaflmtm 
arr*d lm 


address . 

i>y  * ■»  i n I t i a 1 1 t r tie  ) , 

byte  initial*  f j Uel  . 

byte  initial' false). 

a‘1'1  r-*«*  i n l t I a 1 < h * , 

:•  ic  bad  dr  t 33 ) byte, 
byte  1 n i t i a 1 < 0 . ' 
byte  ini  t inl(«oiiree|*eo«lze) 

by  I-. 

byte, 
iiHili'f  sa 
byte  , 
address  . 
byte  . 
byte  . 


a In'  ,0.0, 0.0) 


<1  isko  ti  t btif  t < lnfrecsize'  byte. 

/*  the  following  global  variables  ape  used  by  the  scanner 
dec  1 are 


token  byte, 

has  he ode  byte, 

neJtrhar  byte, 

accural Identsize) 
cunt  byte: 


* type  of  token  just  scanned  */ 

* has  value  of  current  token  */ 
current  character  from  getcliar  */ 

byte.  /*  hulls  current  token 

indicates  aectun  was  full,  still  more  */ 


/****l!*****»:T*«;>:*******t:*****s*****: xxxxxxxxx-xxT.xxxxxxxx/ 
/*  symbol  table  global  variables  */ 

/XXXX-rxxj’.XTXTXXxxx'XXT.vxxxx.'r.xxjLXXxxxTxx.nxxxxxxxxx'J'.xXxxxxX/' 


declare  base  address.  /*  base  of  current  entry  */ 

hash tab le < has ht b I s Ize > address. 

sbtbltop  address,  '^current  top  of  symbol  table*/ 
sbtbl  address. 

ptr  based  base  byte.  /*first  byte  of  entry  */ 
aptraddr  address,  /^utility  variable  to  access  table*:/ 

addrptr  based  aptraddr  address, 
hyteptr  based  aptraddr  byte, 

prlntnaine  address,  /*set  prior  to  lookup  or  enter*/ 

symhash  byte  , 

prev*b Ik* le ve 1 ( 12)  byte, 

prevftindex  byte  i n i t 1 a 1 ( 233 ) . 

s tep*f lag  byte . 

b l k*c  nt  byte  Inltlal(O). 

b 1 k* level  byte  initlnl(l): 


declare  read  l data<0,39.  12.  13,53,53.2,49,32.53,33.3.8.8, 19 . 20 . 26 . 27 . 3 1 
. 34 . 35 . 39 . 4« . 42 . 43 . 48 . 33 , 33 . 1 9 , 20 . 26 , 27 . 3 1 , 34 . 35 , 39 . 40 . 42 . 43 , 48 . 33 
,33,33.33.33.33.13.33.33,23,2.3,9.20,28,49,32.33.33,33.2.3.9,20.49 
. 32 , 33 . 33 . 49 , 33 , 2 . 3 . ') . 20 , 49 . 32 . 33 . 33 . 2 . 49 , 33 , 33 , 2 . 49 . 53 . 2 . 2 , 2 . 49 . 33 
,11.14.34.51.53.13.7.4.53,55.2.13,14,2.14.14,2,8,11.7.11,7.11,11.2.8 
,4,6.  10.24.33.33.  16.7.  11,2.7.1  1 . 17,7,  11.7,49.33.  II.  19.20.27,31.34.33 
,39.40.42.43,48,33.33.02.33.14,8.19,20.27.31.33.34.33.39.40.42.43.44 
,45.47.48.50,53.34.35.4,11.1.12.15.21.7.11,7.11,4.11,1.7.12.15.32.7 
.13,36.2.3.9.20.29,30.49.32,33.33.8.8.8.2.2.2.23.39.49.52.53,18.11 
.33.33,44.43.47,30.34.7.11,53.7.11.8.11.41.33.38,30.31.46.22.37.7.22 
, 19.27.31 .34.33,39, 40.42, 43. 48. 35.7.3.3.9.0) : 


declare  lookl  lata! 0.12. 15.0.  13.0.2, 0.2. 0.11. 0.14. 0.8. 17. 32. 0.2.  14.0,  14 
.0.  11.9.  14.0.  11,0.  11.0.2.  14.  17.0.6,  10,0.6.  10.0,6.  10,0.6.  10.0.6.  10,0 
.6.  10.0,  16.0,  16.0,  16.0.  17.0,  I 1.0,25.0.23.0.  11.0.  11,0,33.44.43,47.50 
.54.0.11.0,53.0.46.0.33.44  •>5.47.30.34.0.32.0.22,0.46,0,3.3.9,0); 

declare  applyl  data(0.0. I.O. 0.0. 0.0. 131. 143.0.0. 149,0.0.0.0. 44  0.14,13 

,40.93.0,37.93,  143,0.37.  1 4 '■ . •» . 9 . 0 , 27 . 150,0,3.4.32.95,0.0.0.4.6,22.24 
.33. 36. 3'*. 86. 94. 93.  1 17.  122.  130.  134.  136,  (37.0.0,7.8,  10,  16.  17.0.  11.  18 
.0.26,0.  124.9.3.4.3.  14.  13.27.32.37.40.93.03.96,  101. 143.  150.0.0,0.0 
. 63 . 0 . 0 . 0 . 0 . 0 . 0 . o . « . 0 . 0 . 0 . 0 0.0.0,42.46.0.61 . 0 . 0 . 0 . 0 . 0 , 14. 15.37,40 
. 93 , lOl,  1 43 . 0 . 0 . 3 . 79 . '» . 30 . 0 . 3 1 . 33 . 0 . 0 . 0 . 0 . O . 0 . 0 . 0 , 0 , 0 . 0 , O . 125,0.0,0 
, 0,  O,  tt . 0.  *»,  O.  « . 0. 0 , I 4 . 13 . 2~  . 37.  +0 . 93  . !')  ■ . 143. 130,0.0,0.52.0  •) . 0 . O . 0 
) : 

“ s s 1 Tt  i I i O I 
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declare  rend2i254'  addr 


(0.  195,331.302.54.  tM  , 4 . 264 . 263 . 262,  160.  10,353.350.23 
.29. 196,32,36.290,38. 190.41. 336.42.46 . 03. 139.28.29,371,32.36.290.38 
. 193.41. 306 ,42.46.30.  1 39 . 044 .310, 3 09 . 368 . 333 .33,70. 289 . 3 . 7 . 1 6 . 29 . 33 
.264.263.262. 160. 161.3.7. 16.24.264.263.262. 160.312.313.4.7, 16. 29. 264 
.263.262, 160,292. 157, 162.040.298. 157, 162.3,208.300, 157, 162.20.25,57 
. 32 . 69 . 229 .218. 275 . 62 . 367 .063  228 . 2B3 . 3*  0 . 283 , 285 . 360 . 337 . 279 , 12 . 356 
. 13.061,211 .333,332.274.  11.18.191 .208,287,26.207.209.6.31  I .12,243 
,29  1 .294,217.  138,  163.269,20.29.32.36.290,38.  193.41 .336,42.46,33,  159 
.37.  164.281 . 14.28.29,32.36.268.290.38,  195.41 .336.42.  133.  136 .214.46 
.49.33.36. 139,200.282. 150. 1 34 . 327 , 370 . 293 . 302 , 362 . 364, 284 . 206 , 133 
.261, 154,327.318.261.24,39,4.7.  1 6 . 29 . 04 . 33 . 264 , 263 . 262 . 160.  1*3. 359 
,334.293.299.301 , 3 1.40,264.263.262.27.2 ! . 65.268, 155. 156.214.49.56 
.297.304.66,296.303.  13,  19.041. 163.278.30 . 3 1 .43.30.317.323.30,28,32 
,36,290.38.  193.41 .336,42.4*.  I*>6 . 260. 8.  '■* . 17.0)  : 


dec  lore  l--»ok2<  1 0 1 ) address  Initial 

<0.2.2. 328 , 23 . 029 .43.212.44.213,47, 307 ,48,271.240.265 
,240, 38.59.39 .265.60.263 . 6 1 .305.63.273.64,277.67.206.68,68.263.240 
.71.71 .246.72,72.231 .70.73.230.74.74.247.73,73,248,76.76,244,80.232 
,81 .233. 82.254. 88. 237. 92. 2<«7. 120.319. 121.320. 127,366. 128.365. 131,131 
. 131  , 131 , 131 . 131 .33  1 . 139 . 200.210.  142.  144.202.  143.145.143.145.145,143 
.349.227.219. 147.333.  149.200.  132.  132.  132. 244 > : 


declare  apply2( 177) 

.124.141. 184,216 
.97,  143.342.343. 

. 104.339.326, 109 
. 171 . 167, 174, 175 
. 176.89,87.87.87 
. 134.237.78.234. 
.93,93.93.93,93, 
.233. 126.79.232, 
. 129.030.  182.  133 
, 180.236, 123,369 


address  initial 

( 0.0.77.200, 101 . 194. 192. 100. 113.116.114. 189.201 .203 
.210. 190. {73.372,224. 197.222. 1 87 . 223 , 2 19 . 22“ . 226 , 220 
221 . 13  1 . 13  1 .308.242.231 .93.  108.  1 10,314.313.283.316 
.241 . 103 . 106 . 243 , 107.340.  111.  103.  190.  168.  17“ . 172 . 1 69 
, 173.256.255.83.258. 176. 176,90.87,87.87,87.87.87.87 
,237.  199.91  . 177.272.270.  183,99.98.276,  137.  102.266 
96.233,  113.  1 IS,  I 19. I 17,306.308.  132.84.85.  135,93.93 
94. 130. 148. IBS. 146, 179, 178,323,322.321.324.06.330 
1 12. 140. 125, 136.337,334. 183.204. 150.346,347.348, 186 
. 239 , 239 . 239 , 239 . 239 , 239 . 239 . 239 , 239 , 259 . 122. 203 .181 
. 138)  : 


dec  lare  Index  1 da t a<  « . 1 . 2 . 30. 70 . 4 . 70. 6 , 6 , 1 1 . 6 , 6 . 12 . 13.  1 4. 28. 6 , 6 6 , 42 . 43 
.43.70.40.70.47.6.208.49.30.50.60.59.60.60.70.70. 133.78.70.135.81.82 
,83.85.86.87.90.91.92.93.94,99.95,96,97.98.99,100.103.103.90,106,91 
, 100, 109,  111  , 1 13.  103.  1 14.  116,  117,  117.  1 17.  1 17, 117, 1 17,  119,  120.30.  122 
. 122,  122. 123.  123. 126.70.  128. 128. 129. 131, 132. 134. 133,70,70.59.  148. 149 
, 150. 131 , 132. 171 . 173,  176.  177,  179,  181 . 183,  187, 188. 189,190.19  1 .201.202 
. 203 , 204 . 203 . 206 , 207 . 207 . 70 , 208 . 209 .212.212,213.213.214.70.215.221 
. 223 . 70 . 224 .70.70. 226 . 227 . 228 . 229 . 230 , 133. 233 .213. 234 . 234 . 206 . 233 
,238,249.250, 1 . 4 , 6 . 8,  10 , 1 2 . 1 4 . 1 8, 2 1 . 23 . 25 . 27 . 29 . 3 1 . 35 , 38. 4 1 . 44 . 47 , 50 
.33.33.37,39.61,63.63.67,69,71,78,80.82.84,91.93,95,97,1.2.4,4.5.6.7 
,7. 8. 8, 8. 8, 8. 8. 8.  11,  12.  14.  14.  )3.  13.  16.  16.  16.  16.  16.  17.  17.  19.  19.24.24 
, 24 , 28, 28. 28, 31.32. 32 , 33 . 33 , 33 , 33 . 33 . 33 . 33 . 33 . 33, 33 . 33 ,36.36.41. 42 
, 42 . 60 , 60 , 60 . 60 . 60 , 60 . 6 1 , 6 I , 6 1 , 67 . 67 . 70 . 70 , 70 . 70 . 70 , 72 . 72 , 72 . 74 . 74 
,90.91.91,92.92,92.92.93.93.95,96.97.97.98.99.99.100.101,102.102.103 
. 103,  104.  104,  103.  106.  106,  106.  107,  107,  107.  100.  108.  108.  108.  103.  108.  108 
. 109. 109, 109, 109, 112. 112. 114. 115, 115, 116. 116. 117. 118. 126. 127. 127.130 
. 130. 130. 132. 132. 133. 136. 136. 136. 136. 137. 137, 137. !38. 139. 140, 141 . 142 
, 143, 144, 143, 146. 148, 148, 149 . 130, 130. 131 . 131. 132. 152, 133. 154. 134, 135 
. 183.  136.  137.  137.  158. 158.  159.  169  , 169  . 170,  170.  17  1 , 171 , 173,  174.  175. 176 
, 176)  s 


declare  Index2  da t a< 0 . 1 . 2 . 9 . 0, 2 . 
,2.3. H . 1 .9,9.8.  1 .8. 2.8.0.  KJ 
. 1 .3.2.  1 . 1 .2.  1 . I .2.2.  1 .2.2.  1 
.2. 1.13.8.8.1. I. 1. I. t. 19.2.3 


.3, I . I . 1 . I . I .8.6.2, 
.2. 2. 4. 3. 2. 2. 2. 2. 2. 
,t. 1.2. 0.0. 2. 0.2.0. 


.8.6.2. I .8,2  1 
. 2 . 2 . 2 . 4 . 3 . 3 . : 
. 0 . 2 . o . O , 1,0. 


.3.  1.0,  I . 1 .O.o, 0. 0.0.0. o < 

.0.2. 2. 0.0,0. O.o.  1.0.2.  i . • 
,2. 2. 2. 2. 2. 1.2. 1.2. 2, 2. 2.* 
! O.O. O.o.  | , 1 . l , 1 . 1 .o'.:)!  t . 


1.1.14 
1 . I . I . 
1.2.9 
1 . 1 . I 
13.  1 . 
2.2.2 
0.2.0 
0.1.0 
1.2.2 
I . I . 1 
n.o.o 


, 14.5 

3.1.1 

.1.1. 

. 10.  1 

6.2.1 
.2.2. 
. 1.0. 
.2.2. 
.0.2. 
.2.1. 
.0.0. 


.5.5, 
.1.1. 
1.2.1 
.1.1. 
.2.1. 
2,7.2 
0 ! 1.2 

3.1.1 

2.2.1 
2.2.0 
0.3.3 


1 .8. I .8 
I . 1 . I . I 
J.  I . 1 . 2.  1 
l . I . 1 .0 
.3. 3. 2. 2 
! . 7 . 2 . 2 . 2 
>.0.0. 3.  1 
1.2.0. 2.0 
. 1 . 1 .0.2 
>.  I .2.0.2 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXSXXXXXXXXXXXXXXXXXXXXXXXX/' 
global  procedures  */ 

/xxxxxxxxxxxxxxxxxxxxxxrsxxr.xxxxxxxxxxxy-zxxxxxxxxxxxxx/' 

monl:  procedure! f . a) ; 

dec  lare  f byte , 

a address: 
go  to  bdos t 
end  monl: 

mon2:  procedure  (f,a)  byte: 

declare  f byte,  a address: 
go  to  bdos; 
end  mo n2 ; 

mo n3: procedure ; 

/xused  to  return  to  the  sy»  ten*/  . 

goto  boot; 
end  mon3; 

move:  procedure  (a.b.l); 

/*  moves  from  a to  b for  1 bytes  ( 1 < 233) 
declare  (a,b)  address, 

(a  based  a.  d based  b.l)  byte; 
do  while  ( 1:=1  - 1)  <>  233: 

d = s : b=b  + 1 : a -st  + l : 

end  ; 

e nd  mo  v«  ; 

fill:  proc  (a.char.n): 

/*  move  char  to  a n times  */• 

declare  a addr  . ( c hat* . n . des  t based  a)  byte: 
do  while  (n  :=  n -1)  O 255: 
dent  = char; 
a s a + l ; 

end ; 

end  fill; 

read:  procedure! 

declare  toggle! 3)  byte: 
toggle  a It 

call  non  1 ( 10 toggle ) : 
end  read: 


prlntchar:  procedure! char ) : 
declare  char  byte; 
call  monl ( 2. char) : 
end  prlntchar: 

print:  procedure's); 

declare  a address; 
jj  ca l I monl ! 9 , a ) i 

end  pr 1 nt  t 

dlskerr:  procedure; 

call  print t . ’de  •' ) : 
goto  boot; 
end  d I a ke r r : 

opendsonrce f 1 le : procedure; 

call  mo ve! . ’ a Ig ’ . r f c bnddr*9 . 3) : 
r fcb<  32)  * 

If  mon2t 13, rfcbaddr*  » 253  theu 
do  : 

call  pr 1 nl! . ' ns  * ' ' • 
go  to  bon  t : 

end ; 

end  opendsonrce f 1 le ; 

c lose®  In t#f 1 le ■ procedure  i 
closes  a file  x/ 

If  mon2(  lb,  . wf c b ) - 233  then 
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call  dlskerr: 
end  c lose*lntOflle; 

se tapOlntOf 1 le : procedure : 

/*  se tup*lnt*f I lex  a new  file  */ 

If  nointflle  then  ^*nnly  mike  l’lle  If  this  toggle  is  off  */ 
re  turn: 

call  move(.rfcb,.wfob.9): 

wfcb! 32) *0: 

call  non l ( 19 , . wf cb) : 

If  mon2(22,  . wfcb)  * 235  then 
call  d Iskerr t 
end  re t up* i nt*f I le i 

rewlnd*source*f I le : proc : 

/*cp/ni  does  not  require  auy 
action  prior  to  reopening*-'' 
re  turn : 

end  re wl nd*source*f 1 1 e ; 

re«d*source*f l le : proc  byt»: 
declare  dent  byte: 

I f(  dc  n t : =ino  n2(  rf  1 le  . rfcbaddr  > ) > flleeof  then 
call  d lake  rr  : 
re  turn  dent : 
end  read*rource*f I le : 

wr l te* 1 nt*f 1 le ’ procedure: 

If  nointflle  then 
re  turn: 

call  mon 1 ( 2d . . d Iskon tbof f ' : 

If  raon2< 2 1 . . wf cb > O 0 th**« 
call  d Iskerr ; 

call  mon|(26,80h) : /x  reset  ditto  address 
end  wr  1 te*  l n t*f 1 le t 

cr  I f - procedure: 

call  printchar(cr) : 
call  pr Intchnrl  1 f ) : 
end  cr I f : 

printdec:  procedure! v» Iue ) : 

dec  lare  value  address.  I byte,  const  byte; 
declare  dec  1 ( 4)  address  1 n 1 t la  1 1 1000.  100,  19,  1) t 
declare  flag  byte: 
f lag  3 false: 
connt  * 30h: 
do  l 1 • to  3i 

do  while  value  >s  dee  II  lit 

value  - value  - dec’ll': 

flag-  truer 

count  3 count  + 1; 

end  t 

If  flag  or  (!>■  3)  then 
call  pr  Intchar!  count ; 

else 

call  prlntchart’ 

end: 
re  turn: 
end  printdec i 

pr lnt*prod ■ proc : 

call  print!.'  prod  3 O’): 
call  pr IntOdec! produc t Ion* : 
call  cr  I f i 
end  prlnttprod: 

pr In fO token’ proc  t 

call  print!.'  token  3 *'»: 
call  pr  I n l*dec  t t o ke  n.' ; 
cal  1 or  If ; 
end  pr  1 n t • t oke  it  i 


emi  t : proc<  objoode)  ; 

Jaclirr  ubjcoJe  bytsi 

Iflbnf fptr: =buf fptrel)  >=  Intrecslze  then  -'Xwrlte  to  disk*/ 
do  i 

call  wr 1 te# lnt#f 1 le : 
buf  fp  tr  = 0: 
end  t 

dlskoutbufft buffptr)=objcode: 
end  enl t : 

c learS 1 Inekbuf  f : procednre : 

call  f 1 1 1<  . I Inebnf f . ' , coiibuf  f s Ize  ) ; 

end  c tearSI IneSbnf f : 

list  line:  procedure*  length) : 
declare  ( length, 1)  byte: 
call  pr In tSdec ( 1 1 neno ) i 
call  pr lnt8dec< prev#  1 ndex* 1 1 : 
call  prlnt#cliar<’  ’); 
do  l = 0 to  length; 

call  pr  l n t c ha  r < 1 1 ne  b u f f < 1 > > : 
end : 

call  crlf: 
end  1 Is  1 1 Ine ; 

/*****«a**:«a**************v.***XXX********x***********:***:*:K*K/' 
/X  the  To  1 lowing  variables  are  used  by  the  parser  */ 

/*************************x******m***********************K/ 


declare  llstprod 

lower toupper 
1 Is (source 
debug  In 
1 Is  t token 
errse  t 
comp! 1 Ing 
codes  lose 
pr  tc  t 


byte  1 n 1 t ia 1 < f a lse > , 
byte  Ini r ia  It  trtae > , 
byte  In  I t i a 1 < f a lse ) . 
byte  1 n I t ia 1 ( f a lse ) , 
byte  In  1 1 ia 1 ( f a lse ) , 
byte  In  1 t la  1 < fa  lse)  , 
byte  , 

address,  /*  used  to  count  size  of  code  ar-a  */ 

address  Inlt lal(Offfeh) . /*  used  to  count  a Ize  of  prt  */ 


/x  variables  used  during  for  loop  code  generation  */ 


forconnt 
randomf 1 le 
f 1 le  lo 


byte  Ini \ la  11 9) , 
byte  , 

byte  In i t la  1 ( f a lse ) : 


/************************rt*****************************.t*/ 
/%  scanner  procedures  */ 
/XXXXXXXXXXTXXXXXXXXXXXXXXXRXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


get char:  procedure  bytet 

declare  addeof  data  ( 'oof' , eolchar.lf):  /*  add  to  end  If  left  off  x/ 


next(«ourc«lchar:  procedure  byte; 

rstnrn  sourcebuf f ( sourcep t r ) : 
end  nextfsonrcetchar ; 

checkflle:  procedure  byte; 
do  Torever; 

If  ( sourceptr : *sourcep tr+ l ) > scur9ourcerec» ize  then 
do  ; 

eonreeptr*®; 

If  readVaourcetf 1 le* f I loco T then 
return  true; 

end  : 

I f ( nextc  Har  : * nex  t#eou-<-  har ) < > If  then 

refnrtt  false; 

end  : 

end  «-  heckf  1 le  i 


If  checkflle  or  ( ne  x t c ha  r : cofflll“rt 
do  i /*  eof  rc«>- V'l  * ■' 
call  move(  . add**  • !'  . =!>  |oc  . .1)  : 


\2r> 


I hen 


aourceptr  ■ 0: 
nextehar=next**ourceSchar ; 
• ad  i 


1 inebafft llneptr?5 1 Ineptr  + 1 > -nextchar : /xontpat  line*/ 

If  nextchar  - eolchar  ; lien 
do  i 

11  a*  no  * 1 1 nc- xu.  +■  1: 

If  tlataourcc  then 

call  1 1 « i I i ne ( 1 1 ne  p t r- 1 ) : 

I Ineptr  = 0: 

call  c lear 1 I nebuf f i 

end ; 

If  nextchar  * tab  then 
nextchar  a ' ' : 

return  nextchar: 
end  (•  tchar : 

are tnob lank:  procedure: 

do  whl  let  ( gre  tchar  s ' ' ) or  (nextcliar  - eofflller)): 

end ; 1 

end  ge tnob lank;  j 

! 

i 

1 1 1 le : procedure : j 

call  pr 1 nt ( . ’ a lgo 1-m  vers  l.O0*>; 
call  cr  1 f : 
end  title: 

pr latferror : p roc : 

call  pr I ntdec ( errorcoun t ) : 
call  prlntchart' 

call  print! . 'error(s)  de tec  ted#* ) ; 
call  cr  I f ; 
end  prlatlerror: 

errors  procedure  ( erreode> : 

declare  errcode  address. 

1 byte: 

errorcount=errorcount+ I : 
cal  I pr In t ( . ’***•’) ; 
call  pr 1 ntCdec ( 1 lneno ) ; 
call  prlntt.'  error  : 
call  prlntchart’  ’)< 
call  pr Intchart hlght errcode )) : 
call  pr 1 ntchart lowt errcode J ) ; 
call  cr  1 f i 
call  prlntSprod: 

If  tokenaeofc  then 
do : 

call  prlnt*errori 
call  mon3i 
end ; 

end  error; 


Ini t lal laetacanner:  procedure: 
declare  count  byte: 
call  openfaource f I le ; 

1 Itteno . 1 Ineptr  - 0: 
call  c learf 1 lnetbuf f : 
sourceptr  - 128: 

call  ge  tnob lank: 

do  while  nextchar  * 
call  ge ttnoSb lank: 
Ificoant  : - (nextchar 
do 


and  3rh>  - 

caae  count : 

If  panel  the::  llstsonrce  = 
1 la  tprod  - t r Tie  ; 
no  1 n t f 1 I ••  r true: 

I la  t token  - true: 
debug  In  3 true; 
end:  /*  of  ca-io 
call  ge  tnob lanki 


o’)  < - 4 t he  n 


true : 


12* 


■•ywp-1 


J"W^JWl«Pl 


I P • . [II 1 1 1 f *1.  I ■■j|l 


•ad  i 

• ad  ini t la  1 lzeSscanner t 


/mx«x«xnxnx**maixt«*yxxxx«**x*i!«*xxxT*xx»:mmx/ 

/*  scanner  */ 

/xx***r.xxx:icr*x*x***xx*******:******s**:****xxx****xx*x*/ 

scanner:  procedure: 

putlnaccum:  procedure; 
if  not  cont  then 
do  i 

accumCaccum  :=  accntn  ♦ 1)  3 nextehar: 
hashcode  3 < has  he  ode  * nextehar)  end  hashmask: 
if  accum  - 31  then  cont  = true: 
end ; 

end  put inaccumi 

putandget:  procedure: 
rail  put Inaccumi 
call  getnoblank: 
end  putandget: 

putandchar:  procedure: 
call  put Inaccumi 
nextehar  3 get  chart 
end  putandchar; 

numeric:  procedure  byte: 

re  turn)  nextehar  - ‘O')  <-  9; 
end  numeric: 

lowercase:  procedure  byte: 

return  (nextehar  >3  61h)  and  (nextehar  < 3 7ah> : 
end  laMtrfcaaei 

dec ima lpt : proc  byte: 

re  turn  nextehar3 ' . ' : 
end  dec Ima lpt i 

conailolupper : proc I 

If  lowercase  and  lowertoupper  then 
nextchar3nextchar  end  3fh; 
end  convt toSupper ; 

letter:  procedure  byte; 
call  conxrdtodupper : 

return  ((nextehar  - 'a')  <=  23)  or  lowercase: 
end  letter: 

alphannm!  procedure  byte: 

return  numeric  or  letter  or  declraalpt; 
end  alphanum: 

■poo lnumer 1c : procedure: 

do  while  numeric; 
call  putandchar; 
end : 

end  spoo lnnmsr 1c ; 


aatuplgexltcall:  procednre: 
If  nextehar  = * th»n 

call  g e tnob lank: 
cont  3 false: 
end  at topSne xtSca  1 1 t 


lookup:  procedure  byte; 
declare  maxrwlng  tit  ’9’; 


127 


dec  lere  vocab  Am  taf  + ' .3db.  7eli.  * > 

, • s • ,5bh. . 'do ' , ’go ' . ’ I f ' . 'of' , 'or 
. ’and’  . ’ for’ . 'not* , ’pie* . * *ab* . 'case'  . ’else’  . \ 
, *atep’ . ’ than* . ’array' . ’ begin’ , e loae ’ . ’until ' 
. ’atr  In*'  , ’dec  I Ml  ’ . ’ Initial*.*  Integer’  , ’ wr  I te 
,■* comment  ’ . ’externa  t ' . ’ func  t ion’  . ’ procedure  * ) : 
dee  la re  v loc  da  ta ( 0 . 1*  I6i32,33.81 . I I 1* I 17,  152.  108. 
declare  vnua  da ta( 0, 1 , 16 . 24. 3 1 . 38, 44. 45 . 58 . 34 > : 
declare  count  da ta( 0. 14, 7 , 6 . 6 . 5 . 0 . 4 , 1 , 0* s 
declare  ptr  address , (field  baaed  ptr)  (9)  byte; 
declare  1 bytei 


' , ’ to 
file’ 
. ' whl 


’ , ’ eo  f ' 
, ’goto’ 
le  ' . ' wr 


. ' i nd  ' 

. ' rend ' 
I te  ’ 


|l 


compare ! procedure  liy'e; 
declare  1 byte: 

1 » 0t 

do  while  (fleldfl)  = accutnl  i 
end  i 

return  1 > accum: 
end  compare: 


+ 1 ) ) and 


If  accum  > maxrwlng  then 
return  false; 
ptr*vloc<  accum)  *•.  vocab: 

do  l = vnum(  accum)  to  < vnum( accum) +coun t ( accum) ) : 
if  compare  then 
do  : 

If  1*50  then 

token=comnient  : 
e lae 

token1  i ; 
return  true: 
end  i 

ptr*ptr+accum: 

end: 

re  tarn  false: 
end  lookup: 


/'*************************«****»******************'' 
/*  scanner  main  code 

✓a*************************************************' 


do  fo rower: 

accum.  haahcode.  token  3 0: 
do  while  «»itchsr  = eo  Icljar : 
call  getnoblank; 
end : 

iftnextchar  r etrlngdeilm)  or  coat  then 
do;  /*  found  string  */ 
token  - string: 
cont  • false: 
do  forever; 

do  while  getchar  <>  strlngdellm; 
call  put  lnscciuni 
IT  cont  then  return: 
end  : 

call  ge  t nob  lank: 

If  next  char  <>  strlngdellm  then 
re  turn : 

call  put# 1 uSnccumt 
end:  of  do  forever  */ 

end  l /■»  of  recognizing  a string 


else  If  nataer  Ic  or  declmslpt  th->n 
do:  /*  have  digit 

token  » Integer^: 
do  while  n*slrhir3  ’••'  i 
next char =ge  • • h.»r: 
»nd  : 

call  spoo  Inumer  : 

I f dec  Ifna  Ipt  fh  'n 


1 


/*» I 1m  leading  zeros*/ 


do  t 

foken*dec Inal; 
call  putauichar: 
call  apoo  limner  1c ; 

and « 

If  iccm>8  th<n 

haabcode , arcW  accna  :*  1)  1 'O': 

call  ae tnp#next*ca l 1 t 
re  turn; 

end;  /*  of  recognizing:  numeric  conatant  */ 


alaa  If  latter  then 

do:  /'*  have  a letter  '*■/ 
do  while  alphanun: 

call  putandc liar : 
end ; 

If  not  lookup  then 
do  i 

token  * Identifier: 
call  ae tnpdneztSca 1 1 ; 
re  t nm : 

end ; 

e lae  /x  la  a r*  hut  If  conusant  skip  */ 
If  token  = comment  then 
do ; 

do  while  neztchar  <>  V : 
nextchar  : getchar: 
end  : 

call  ge tSnoSb lank; 
end : 
e laa 

do  i 

call  tdupOnaztSca 1 1 ; 
re  taro: 
end  : 

end:  /*  of  recognizing  r«  or  Ident  */ 


e laa 

dot  ✓ * apec  la  1 character  t./ 

If  neztchar  * 23 h then 
do  i 

ne *t char * ge  t char : 
do  while  neztchar  <>  23ht 
neztchar  - ge (chart 
end ; 

call  ga  tCnodb  lank.: 

end  t 
e lae 
do  t 

If  neztchar  ■ *»•  then 
do  ; 

call  pntandchar; 

If  neztchar  * then 

call  pntandget; 
end  t 
e lae 

If  nextchar  * then 

do  i 

call  pntandchar: 

If  nextchar  * then 

call  pu tandge  t ; 
end  i 

e lae  call  pntandget: 

If  not  lookup  then 
call  error < ' 1c ' i : 
call  ae  tttp#nezt*''«  II  : 
re  turn: 
end : 

end:  ■'*  of  recognlzln*  sj»-rlol  char 
end:  /*  of  do  forev«r  •» 

end  acanner:  /■*  end  of  aenuner  * 


/xx*xxxxxss*xxxx**x***xxxxxxx-t.x«*xx*xxxxxxxx5>:x»:*xxx/ 
/*  procedures  for  synlh»» izer  */ 

/'XX***X**SXSSXZXXXXXXXXXX*ZX  *v  l*S****X****r:-i:*mm/ 


Ittt t la  1 IzeSsymtbl  = proc  i 

if  pass  I then 
do : 

/*  flit  hashtahle  with  */ 

call  f 1 1 I < . hash tab  I e , 0 , sh 1 ( has  ht b Is Ize , 2) ) : 
s b t b | = .memory! 
end ; 

/*lnltlallze  pointer  to  top  of  symbol  table*'' 
abtbltop  - max  - 2i  i 

end  Ini t la  1 Izetsymtb 1 : 

se taddrpt r : proc( o f f se t ) ; /*se  t ptr  for  addr  reference*/  j 

declare  offset  byte: 

aptraddr  * base  ♦ ptr  ♦ o f f se  t : Xpos  I t Ion  for  addr  referencex/ 
end  setaddrptri 

se  tSb  Ikf  l ewe  I s prod  levs  I ) t 
declare  level  byte: 
call  ae taddrptrt 6) i 
byteptr  * leva  1 1 

end  letlblkf 1 e ve  I : fl 

gethash:proc  bytei 
declare  hash  byte, 

1 bytei 
hash  * 0i 

aptraddr  * base  + 2: 
do  l * 1 to  ptri 

hash  = (hash  ♦ byteptr<  O)  and  hasbmask.: 
end  i 

return  haahi 
end  are  thash: 

nextsntry : proo t 

base  * base  ♦ pt i*  * 8t 
end  nextentryi 

se  t I Ink.:  proc  t 

aptraddr  - bass  + It 
end  set  link! 

hashtb l*o fSsymhash: proc  address; 

return  hashtab le< symbash) : 
end  hashtb  Ho  fdsyiahaahi 

I Ini  ta  •'  procf  count)  t 

/Ucheck  to  sae  If  additional  sbtbl  will  overflow  limits  of 
memory.  If  so  then  punt  else  return  */ 
declsre  count  bytei  /raise  being  added  is  coant  */ 

If  sbtbltop  <*  (sbtbl  + co an t > t he n 

do : 

cn  1 1 error!  ’ to  * I t 
call  mon3 < 
end  i 

end  Units:  j 

se tnddr: proof  loci t 

/*aet  the  address  field  and  resolved  bit*/ 
declsre  lor  address: 
call  setaddrptr  (4): 

addrptr  5 loci  ■ 

end  setaddn 

lookuptcurrent*b Ik: procl  chkSb I k'  byte: 
declare  chkShlk  byte, 
len  byte. 

n based  prtntnnme  byte: 


base* hash tb  10o  f tsymhashf 
do  whl 1«  base  < > 0; 
call  a« taddrptrf 6) : 

If  byteptr  < chklblt  th«n 
return  falsei 
If  by tapir  - chkfblk  then 
do  | 

If  (lent*ptr)  s n than 

do  while  < ptr<  len  * 2)  * n(ten>>: 

If  (len  : 3 lcti  - l)  * 0 then 
return  true: 

end  i 

and; 

call  »e  1 1 I nkt 
baae  = addrptr: 
end  i 

return  false; 
end  I ookupdeurren  ttblk; 

lookup: proc  byte; 
declare  teetfblk  byte, 

teatfindex  byte; 
teetSlndex  * pre v* 1 ndax+ t ; 
testfblk  3 b Ik*  level; 

do  while  (test*lndex  ;■  test*lndex  - 1)  <>  235; 

If  lookupPcurrentflb lk(  tea tsb 1 k)  then 
return  true; 

tea tSblk  * prevPb Ik* leva  1 < :*s t* Index) : 

and : 

return  false; 
end  lookup; 

enter : proc ; 

/tenter  token  reference  by  prlntname  and  symhash 
Into  next  available  location  In  the  symbol  table, 
eat  baae  to  beginning:  of  this  entry  and  Increment 
abtbl.  also  check  for  symbo  I table  full.  */ 
declare  1 byte, 

n based  prlntname  byte; 
call  1 lail  te(  l : -n+8)  ; 

base  » abtbl  i /*baee  for  new  entry  */ 
call  nove( pr Intnama  ♦ I, abtbl  + 3,(ptr  :=  n) ) ; 
call  ae taddrp tr( 3) ; /*se t resolve  bit  to  0*/ 
byteptr  ■ 0; 
call  se  1 1 Ink: 

addrptr  - haahtb  ISo  f Paymhas  I; ; 
haahtab  I e < symhash!  - base; 
call  se tPb IkPleve 1(  b 1 k* le ve 1 1 ; 
abtbl  ■ abtbl  + I; 
end  enter ; 

getlentproc  byte;  /*r*turn  lenxth  of  the  p/n  x/ 
return  ptr: 
and  are  t lent 

ge type: proc  byte;  /'Pre  turns  type  of  variable*/ 
call  setaddrptr  (3); 
return  byteptr; 
ehd  retype; 

•e  tsub  type  : proc  < s type );  /*»nti*r  the  subtype  In  abtbl*/ 
declare  a type  byte; 
call  se taddrptr ( 7t : 
byteptr*»typei 
end  se tsub type; 

gettparm:  proc  byte; 

call  se taddrptrf  10* : 
return  byteptr; 

end  fttparm: 


•he  sub  type*/ 


>:t  i 


4 


4 

i 

j 

i 

! 


ate  tsub  type  : proc  by  te  : /Tr«  t mi 
call  ae tnddrptr ' 7> : 


w 


1 


return  byteptr; 
end  getaubtypei 

aetypetproc  (type)s  /*set  typefleld  = type*/ 
^declare  type  bytei 
call  setaddrptr  < 3 ) j 
byteptr  * type! 
end  eetype: 

getaddrtproc  address t 
call  se taddrp tr( 4) t 
return  addrptr: 
end  getaddr; 


do i /*  block  for  parser  */ 

/*  pnetunonlcs  for  ALGOL- .I  machine  */ 


declare  nop 

1 1 t 

•0’  , 

s t r 

1 1 t 

’ 1 ' . 

tnt 

1 It 

•2’  . 

xch 

1 1 t 

• 3’ 

lod 

' 4 ' , 

deb 

1 1 t 

•3’  . 

drap 

1 1 1 

' 6 ’ , 

x 1 t 

1 i t 

’ “ ' 

aid 

1 1 1 

•8’  , 

a Is 

1 1 1 

<)•  , 

a id 

1 i « 

• 10’  . 

a la 

1 1 1 

* 1 1 • 

ad  1 

1 1 1 

• 12’  . 

add 

1 1 t 

* 10*  . 

sb  1 

1 it 

• 14*  , 

sbd 

1 1 t 

’ 13’ 

mp  1 

1 1 1 

’ 16'  . 

mpd 

1 1 1 

' 17’  . 

d vl 

1 i t 

• 18-  , 

d vd 

1 i t 

• 19  ’ 

dneg 

•21 ' . 

neg 

1 1 t 

• 22  1 . 

ell 

1 i t 

’ 23  ‘ , 

c 12 

1 1 t 

•24’ 

dec  1 

1 1 t 

' 23  1 , 

pop 

1 1 1 

’26’  . 

1ml 

1 1 t 

•27’  , 

1 m2 

1 1 t 

’28’ 

ca  t 

1 i t 

’31’, 

hi  1 

1 1 t 

•32’ 

brs 

1 1 t 

•34'  , 

bac 

1 1 1 

•05*  . 

Isa 

1 it 

•36’  , 

d las 

1 1 1 

•37’ 

a iss 

1 1 1 

’ 38  ’ . 

gtr 

1 i t 

0 91  , 

dgtr 

I i t 

• 40  ’ , 

sgtr 

1 1 t 

’41  ’ 

• <1 1 

1 1 1 

’42’  . 

de  <1 1 

1 1 t 

' 43  • , 

se  ql 

1 i t 

’ 44’  , 

neq 

1 i t 

•43’ 

dne .( 

1 1 t 

•4  ft  • , 

sne  <1 

1 1 t 

•47’  . 

g*9 

1 1 1 

' 48  • . 

dgeq 

1 1 t 

• 49  • 

ageq 

1 1 1 

‘ 30 " . 

le  q 

l i t 

• 5 1 ’ . 

d le  q 

1 i t 

•52-  , 

s leq 

1 1 t 

’ 53 " 

ino  t 

1 1 1 

’34’  . 

d no  t 

1 1 t 

•33’  , 

snot 

1 l t 

•36’  . 

land 

1 i t 

’ 57  ’ 

dand 

1 1 1 

' 38'  . 

sand 

1 1 1 

•39’  , 

lor 

1 1 t 

’60*  , 

dor 

1 1 t 

•6!  ’ 

sor 

1 It 

’62’  . 

vile 

1 1 t 

’63’  . 

wdc 

1 i t 

• 64  * . 

MB  C 

1 1 t 

’ 65  ’ 

Mid 

lit 

•66'  . 

wdd 

1 i t 

P7-  . 

wad 

1 i t 

■68'  . 

sbr 

1 i t 

* 69  * 

bra 

lit 

'70-  , 

row 

lit 

•71  ’ . 

sub 

1 1 t 

•72-  , 

rc  1 

1 1 1 

’73’ 

red 

lit 

'74-  , 

res 

1 1 t 

73’  , 

rd  1 

1 1 t 

’ 76  ’ , 

rdd 

1 1 t 

* 77  ’ 

rds 

lit 

•78'  . 

ren 

1 it 

•79-  , 

ecr 

1 1 t 

•80’  . 

s 1 1 

1 1 1 

’81  • 

ad  1 

lit 

'82'  , 

sa  i 

1 1 t 

■63-  , 

sid 

1 1 t 

•84’  , 

add 

1 1 t 

’83’ 

sad 

lit 

•86’  , 

opu 

lit 

•87’  , 

c Is 

lit 

•88’  . 

rdb 

lit 

•89’ 

rdf 

lit 

*90-  . 

edr 

1 1 t 

•91  • , 

ed  v 

1 1 t 

•92’  , 

pro 

1 1 t 

•93’ 

• IT 

lit 

•94’  . 

sv2 

1 1 t 

’93’  , 

uns 

1 It 

’ 96  1 , 

r tn 

1 1 t 

•97’ 

declare  state 


s ta  tea  tack( pa  tacks lze  > 
haaht  pa  tacks lze ) 
ayialoc  ( ps  tacks lze ) 
arloc(patackslze) 

»«r(  pa  tacks lze ) 
t ype  < ps  t ac  ks  1 ze ) 
a typet  ps  tacks  lze) 

«rc(  varcs  lze) 
var Index 

( vp« mp « opp  1 . no  look) 
ons  tack(  mioncoimt) 
c lab  1 ng 
c lab2 
c lab  le 
a trks lze 
decks  lze 
a 

pvnum 
save perm 

per me  baaed  saveparm 
f pc o unt 


pnrmbaae 
prock  t ype 
t ptes  t . 1 ) 
pro unt 
type  temp 
f f lag 
I pcoun  t 
a 1 de  n t 


s ta  tea lze , 
states! ze, 
byte  , 
address , 
address , 
byte  , 
by  te  , 
byte  , 
byte  , 
byte  , 
byte , 
byte , 

byte  1 n 1 t la  I ( 2) . 
Ini t ta 1(20) 


byte 

byte 
byte 
byte 

byte 
byte 
address 

b : t e 
byte 
eildrcs 
byte 
i>  y t e 

* V t A 

j’ v t • 

1 V t- 

i«  V t A 

ad  d r 


Ini t la 1( 10) 
Ini t ia 1(9) , 

InltlBlIO'. 


i n l t 1 a 1 < 0 ' 


.'12 


. ..  .. ....  — 


Initial Izrlgynthcf Ize : procedure : 
codes Ize ,ons tack. c lab le  1 0: 
prev* Index  3 253 ; 
b 1 k#c nt  3 0 t 
b 1 kS  lev*  1 3 0 1 

end  Ini t la  I lzeteynthes Ize ; 


synthesize:  proc i 


/*  ****  synthesize  local  declarations  %/ 


declare  s invar 
sub var 


pro 

exttproc 
b 1 t * 1 nlfnnc 
const 
lab 

Integer 
s tr 
f 1 le  1 
f unc 
parm 


declare  ( typesp, typenp. t ypemp 1 > 

( h . t e mp ) 

(at  ypesp , s typenp , a t ypemp 1 ) 

( has  hap  . has  hop.  haahnipl ) 

( a ymlocap . synlocmp , symloompl) 
' sr  locnp.ar loc mp > 


byte  , 
byte  , 
byte  . 
byte, 
address . 
address : 


/*  *«*****************e*:f'X*r.**xair*xx******y*xx****:irx**:<:**:*s:*x 

/*  t*»***«»*  code  generation  proc's  *****«;t.**  x/ 

/*  ******i********i[***-j;*j3:**********************«**»:*x*::i'.**  */ 


copy: procedure 

typesp  3 
t ype mp  I 3 
t ype  mp  - 
s t ypesp  3 
a typenp  1 
a t ype  mp  3 
eymlocsp 
synlocnp I 
synlocmp 
haahnp  3 
hashmp 1 3 
ha  a ha  p 3 
srlocap  3 
arlocmp  3 
end  copy; 


type! ap> ; 

t ype  ( mpp 1 1 ; 
type ( mp) i 
s type' sp) : 

3 a type ( mpp  t ) ; 

a typet  mp)  ; 

3 ayroloc (»p* : 

3 sym  loc  < mpp  l ) 
3 symloct  mp' : 
hash'  mp  > ; 

hash)  repp  1 ) ; 
hash'  sp)  : 
ar loc ( a p ) : 
sr loc<  mp)  ; 


se tsymlocsp:  procedure's) 
declare  a address; 
syraloc(ap)  3 «; 
end  setsymlocsp; 


•« tsywlocmp:  procedure's) 
declare  a address: 
sym loc  ( mp)  3 m 
end  se taymlocmp: 

■at typesp:  prored ure ' b 1 ; 
dec  1 are  b byte; 
t ype  ( s p ) 3 b ■■ 

end  sett  ype v p ; 


aetstypeap:  procfdur» < b ) : I 

dec  lare  b byte  : j 

a t ype  ( 9 p ) - b i j 

«id  »f  H lypespi  j 

»*  ta  typemp  : procedure  < b ) : 

declare  kbyte:  j 

a type  imp)  = b : 

end  aetstypempi  J 

aet typemp:  procedure! b) : 
dec  I are  b byte  t 
t ype  < mp ) » b : 

end  ae  t t ypemp:  1 


aethaahrap:  procedure  < b ) ; 
dec  lare  b by te  t 
ha  ah!  rap)  ' b i 
end  sethnahmp: 

set  hue  hep:  procedure! b)  ! 
dec  lare  b byte : 
hash! sp)  ' b; 
end  9ethashsp: 

aetarlocgp:  procedure!  a)  : 
dec  lare  a address  : 
sr  loo f a p ) = a : 
end  setarlocsp: 
aetarlocmp:  proc(a); 
dec  lore  a byte  t 
srlocl mp) -u i 
end  aetarlocmp: 

getarloe:  proc  byte: 

call  »e taddrptr!8> : 
return  addrptri 
end  ge tar  loci 

genera  te • proc! objcode ) : 

/^writes  generated  code  and  counts  alze 
of  code  area-  */ 
declare  objcode  byte: 
codes  Izo  - codes Ize  + I: 

If  not  pass]  then 
call  eml t! objcode ) : 
end  genera  te  l 

genllntlv:  procla); 
declare  a byte- 
call  generate! lol ) : 
call  genera  te! a)  : 
end  »»nllnt*»i 

lncr*b  lit*  levs  l : proc: 

pre  vlh  I kllexe  1!  pre  vl  l nde  z : - pre  vUndex*- 1 ) - blkllevel: 

b l hi love  1 - blklcnt  + I: 
b l klo  n t = b 1 klc  n t + 1 : 
call  genera  tel b I 1 ) ; 
end  Incrl’-lklte  V<*  | J 

decrlblkltere ! : proc: 

blkll  «*  ve  1 - pre  vlb  l kl  l«v«-  I ' pro  vS  i nd  ex): 

pre»llnilex  1 pre  vll  udo  c- ! • 
call  genera te! b Id ) ; 
end  dec  rib  I Kl I o ve  | : 

calclvarc:  procedure(b)  nd.lr»s«. 
declare  b byte: 
return  var'b)  ♦ -varc: 

end  ca lolvorr : 


set  lookup:  procedure!  a)  ; 
dec  lare  a uyte  t 
print  name  - c« lc4vnrc ( a > : 
symha-h  1 hash!  a); 
end  set  lor  kup  i 

lookup#" a I y ' pr ooed nrr < a > byte: 
dec  lore  a byte ; 
call  9e  t lo"knp<  a > ; 

If  lo»kupSc  ur  rent  4b  Ik',  b 1 h.4  ! o v»  1 ) then 
return  true: 
hasoSf las  - true ; 
re  t urn  false  s 
end  I ookupto a 1 y : 

ful 1*1  oo  kup  ■*  pr  o c ( a ) byte; 
dec  tare  a by te : 
call  se t lookup! a > ; 

If  lookup  then 
re  turn  t rue : 
ret  ur  n false; 
end  ful 14  lookup; 

norms  14  lookup : procedure! a)  byte; 
dec  ltr-  a byte: 

If  lo  • kup4o n 1 y< a)  then 
r«t  urn  true : 
call  enter: 
return  false) 
end  novtna  14  lookup: 

count pr t : proc  address; 

-'•counts  the  size  of  the  prt  */ 
return  1 prtrt  : = petet  + 21- 
end  count  pr  t : 

gentw>:  proc  < a > : 

writes  two  bytes  of  object  code  on  disk  for  literals 
declare  a addreaa: 
call  genera t e< high! a •> : 
call  genera  te!  low!  a)  ) ; 
end  go n t wo : 


literal: proc  t a 1 i 

declare  a addreaa; 
call  geatwoia  or  B000h) ; 
end  literal; 

se  tename : proc : 

print  no me-  . c lab  I ng ; 
syrahash-c  lab  le  and  hashmsk: 
end  ae  tename ; 

e nter4comp 1 ler4label:proc(bl : 
dec  lare  b byte  I 
1 r pnsa  1 t lien 

do : 

cn 1 1 se  tename ; 
call  enter: 

'-all  •“  t ad  dr  < codes  l7.e  M: 

end : 

end  onter4comi>  i ler41abe  l : 

se  t4comp 1 |er4 In be  1 : proc : 
dec  lar»  * byte : 
e lab  l»  * clable  * I: 
call  *a  tcnnme : 

If  pn»sl2  then 
*= lookup; 

ond  s»  1 4<-om|>  1 I «•  r#  In  be  1 : 


. -«■  ■ - -■■■ WiiA.ljd 


comp  1 lerSlabe I : proc: 


call  «e t*corap l lerS  labe 1 : 
call  i;<?nltwo(  ge  taddr>  : 


end  comp l lerl labe 1 : 

setfenter:  prod  a) i 

declare  la.b)  byte; 
b = c I i b l e : 
c lab  le - a ; 

call  en lortromp 1 lerS lab* l * 0> : 
c lab  le  = b; 
end  setlentori 


branchCc  lause  : prod  a); 
dec  I are  a byte ! 
call  genera  te ( a ) : 
call  comp i lerfl labe 1 ; 
call  ee t typempt  c lab le ) : 
end  branc  hie  lan.ee  t 

process*ca«eS  labe  I : proc(a): 
declare  (a,b,x)  byte: 
b-c  table: 
c 1 ab  le  = a : 

call  nera  tel  bra  i : 
call  *e  tc  name : 

If  pa**2  then 
x3  lookup : 

call  ftonltml  are  taddr  • : 
clable=b| 

end  proceoaican'l  lobe  1 : 
caaefatate:  proc : 

ca  1 l proceaatcaae*  labe  1 ( typ«-(  mp-2)  ) : 
n=  n+ 1 s 

c lab le  = c lab  le  + 1 : 
call  enterfcompl  ler*labe  1< : 
end  ca«e*«  tain 

1 1 1 load : proc ( a)  : 

declare  a addreaa; 
call  genfwota  or  0c<MH*h)  : 
end  l 1 t load : 

steplgen'  proc i 

call  genera tet ad  1 ) t 
call  genera te ( s Id  1 : 
call  e nt ertcomp 1 ler® 1 abe l t O' : 
call  1 1 t load ( a Iden t ) : 
end  eleplgen: 

chktypl:  proc(a):  /■*  check,  np.ep  to  aee  If  they  are  both  decimal  */ 
declare  a byte:  both  Integer,  one  of  each,  or  nletber 

If  < a t ypemp= 1 n t ) and  (utyposp= Int)  then 
call  generateta): 
e lse 

If  ( a t yperap=dec  ) and  1 a t j-posp:dec  ) then 

call  genera  te(  a-*- 1 ) : •'*  generate  decimal  operator 
e I se 

if  ( e t ypemp=dec ) and  1 a I ypeap3 I n t * then 
do  : 

call  ge  ner  a t e ' •:  1 l 1 : * c Oliver  * lute  ger  to  de  l rta  1 */ 

call  gene ra t e t n * 1 > : 
e nd  ; 

e Iso 

If  ( a typemp1 I n t ' and  < a t ypesp3 dec > then 
do  : 

call  gene  rn  1 2i  ; 

call  g«*  tierr,  t *•  a * I 1 : 
call  9 » t e t y • n:p  i d ■?  c ' : 
e nd  : 
else 

i f t yperip  ' > f »i  n-'  ■ , r pa«o  2 t lie  n 


; :ti 


end  chktypl; 


chktyp2:  proc  bytes 

If  stypesp  <>  a type  nip  then 
■lo  t 

ca 1 1 error* ' mm' > : 
return  f a tee  s 
end  i 

re  tarn  trues 
end  ohktyp2s 

chkty-p3:  proc  bytes 

call  se ts typerap* a typesp) : 

If  ( 9 typeap= lnt)  or  t a t ypesp=deo ) then 
return  trues 
call  error  ( ' mf ’ ) s 
return  false; 
end  chktyp3s 

chktypS:  proc  bytes 

If  < a t ypemp* > a tr I or  ' s tyue»p< > s tr ) then 
re  t urn  f a Ise ; 
e 1 se 

return  trues 
end  chktypSs 

chk.typ6s  proc; 

If  pass2  then 
do  s 

If  ( a typemp= lnt)  and  « a typesp=dec ) then 
call  error*  ’ Id ' ) : 

If  * typemp<  > a invar ) and  ( typemp<  >subvar)  and  ( typemp1’  v f 1 I e 1 ) then 
do  ; 

If  ( typemp< > f unc ) or  * no t fflag)  then 
ca  1 1 error*  ' as ' ) ; 

end  t 
ends 

i **dv  ehkryp«t  ' 

gencoal  proc *anb type ) t 

declare  (1, subtype)  byte; 
grenSaccnra:  proc  s 
If  pass2  then 

do  Is  1 to  nccuni; 

call  enl t* accum*  1 ) ) : 
end  s 

end  (rendaccumt 
call  genera te< aub type ) ; 
call  se t t ypemp* cons t ) s 
call  se ts typerap* aob t ype ' i 
If  subtype1 lnt  then 
do  s 

If  a c c um> 3 then 
ca  l 1 error* ' lo ' ) : 
call  pendaceumi 
IT  pass2  then 
call  eml t(  0) t 
code#lzescodes  lae* 2: 
end  : 
e lae 

do  forev-r; 

If  subtype=atr  then 

do  l * 1 to  accum: 

call  gene  r a to  nr  c urn*  I ) ) : 
end  s 

e lae 

do  : 

call  are  nf  nor  urn: 

codes  I r.  e - co  do  s lr.«  nor  um+  1 1 -'2  i 
end  ; 

> f con*  thru 

call  jraninv 


e laa 

do  i 


end  i 

end  gencou; 


If  sub t ypeMec  then 
ca 1 I gen  two*  0) : 

e Ise 

codesize  1 code#  Ise  ♦ 2: 
call  ge  ner a t e ( 0> ; 
re  turn: 
end : 


proceeds  lore : proc(a)i 
declare  a byte: 

If  chktypS  then 

call  genera te ( a+2) : 
e lae 

ca  1 1 chJtt yp  1 ( a)  ; 
end  proceasSs tore : 

genSloc:  proc(a.b): 
dec  lare  a by te , 
b address: 

If  a * I n t then 
call  11  tera 1(b): 
e Ise 

call  I 1 1 load*  b' : 
end  geatloc: 

getSfleld:  proc : 

genSrerd:  proc(a): 
declare  a byte: 

If  siypempIMnt  then 
do  : 

c* I 1 genera  te( a)  ; 
ca I 1 genera  te< s Id • : 
end  i 
e lae 

If  atypempl=dec  th?n 
do  i 

call  generate1  i*D  i 
call  genera te ( add > : 
end : 

e Ise 

do  i 

call  genera  te<  a-*-2>  : 
call  generate1  «.:<))  i 
end  i 

end  genlread: 

call  gen#  loc<  s typempl  . symlocmp  1 ) 
If  fllelo  then 

ca I 1 gentread* rd 1 ) ; 
e lae 

call  gen#read(  re  1 ) i 
end  ge t#f le Id ; 

puttfleld:  proe(a): 

declare  a byte: 

If  fllelo  t he n 
a*a>3: 

If  s typemp Is lnt  then 
do  : 

If  typenpl=subvar  ih-n 
call  genera te  ' lod i : 
call  genera  te*  n 1 : 

end ; 
e Ise 

If  a typemp I* dec  then 
call  genera te ( a+ U : 
e l s« 

call  genera  tet  a-*2)  : 
end  pntftf  le  Id  : 


1 


it 

;i 


1 

i 

I 

I 


i 


procesn#Froc : proc(a)’  i 
declare  • byte: 
call  *e t type rap* a)  i 
If  pass2  then 
do  i 

cal  1 aetarloc mp Carlo o nrp:1  gatarloc!  : 
call  se  ta  t ypempC  ge  r s ub  1 ype ) : 
parmbas#=base+ptr+ I l : 

»nd  ; 

and  procesa#pror  t 

process# Iden t : proc( a)  byte; 
dec  lare  a byte ; 

If  f it  I I#  iookupC  a)  then 
re  turn  ge  type ; 

• lae 

If  pass2  then 

do  ; 

call  errorC ' ud ' ) : 
return  false; 
end  t 
else 

re  turn  func ; 
end  process# Iden t ; 

pr«ce»»f»rrayi proof i) ; 
declare  (a.bl  byte; 

If  ( ( b: =procesa#ldentt a) ) ' subvar)  and  pass2  then 
do  ; 

if  b<  > 0 then 

ca  1 1 error)  ’ In” ' : 
end ; , 

* lse 
do ; 

call  se ts typerapC ge tsnb type) ; 
call  se  tsyialocmpC  s ym  lo ■ - up : = ge  taddr  ) : 
call  ae t typemp) subvar > : 
end  t 

end  processfarray: 

process# IdentSdc I iproc(a.b.c) : 
dclla.b.c)  byte ; 
pvnuia=pvnum+ 1 ; 

If  no  C nornia  !•  lookup)  a ) th«n 
do  i 

call  se  typeC  b) : 
call  ae teddrC conn t pr t ) : 
call  se tsub type ( c ) ; 
end  t 
e lae 

l f pass  1 then 

do  : 

If  «etype*pariH  then 
do  ; 

call  se  typeC  b ) : 
coll  se tsub type ( r • ; 
p tes  t 3 p tes  t - I ; 
end  : 
e lse 

ca  1 1 error) * dd ' ) ; 
e nd  i 

end  process# Iden t#dc 1 ; 

proc#aav-:  proc : 

call  gen# l ntlv) pconn t > ; 
call  gen# I n l #v< < pvnum+3 i *2' : 
call  l I te rn 1 ( s ym 1 ocmp > : 
call  genera te) sav) ; 
call  genera te(  b 1 I > : 

If  proctl ype* f unc  then 
d'*; 

If  stypemp<>  Int  »li*,n 


I3'» 


} 

I 


do  I 

call  lit  load!  sy;nlocrap+4)  ; 
call  literal  I*  ytn  I o e mp  ) : 

If  9 typfmp=d©«:  then 
call  generate'  ild': 

e Ise 

call  genera  to' a Is » t 

e nd : 
end  : 

end  proct-iiivi 

checkSparm:  proc<a)t 
dec  lnr»  a byte . 

•>  address; 

If  pae>n2  then 
do  ; 

b = base ; 

base = parmbaae ; 

If  a N get sub  type  the-n 
call  error*.  ' pin"  ) : 
perrehnse  = bare  + p f r +8: 
base  = *> ; 
end  ; 

call  g"n‘rntel  iml >: 
ca  II  ge  nc  ra  te  < a ) : 
end  check^pni'm; 

procSpro:  proo  • 

call  ge  ne  ra  te < Ins')  ; 
call  genStwot ir loemp'  : 
call  ge nera te< pro ) ; 
end  pridpro; 

proceasSpi'ocSdc  1 : proc(a.b.c): 
declare  (a.b.c)  byte; 
call  processSldentdde l< a . b . r > : 
pvnum. pcount=0i 

cal  1 "e  t s yiulocmp!  symlocnp  ^geTaddr)  ; 

If  pass  1 then 
pr to  t»pr to t+4: 

If  ( prototype : *b)  = func  then 
do  t 

call  1 1 t era  1 < sym loc np+4)  : 

call  generate!  jeh)  ; 
call  genera te ( a id ) : 
end  : 

call  branchSc lanae! brs > ; 

1 f pass  1 then 
do  t 

call  ao taddrptr! 8) ; 
addrptr*codes lze ; 
sbtb  1 = sb  t b 1 + 3: 
aa veparm=eb tb 1- I : 
end  s 

call  Incrtb lk»le ve 1 • 
end  proces»lprn<-Mr  I ; 

proceaaSvar  proe(a>: 
declare  (a.b)  byte: 

If  < b: =process*ldentf a' ) * elnvar  then 

do  j 

call  sets ym loc  apt synlicsp: * ge t add r ' : 

call  «c  t f ypesp!  9 Invar  • 

cell  *e t * t ypesp! gn  t *nh i ype > • 

end  ; 

« lae 

If  b: f une  t hen 

call  proceasfproc  ( f line  ' : 

e lae 

If  b > 0 t he  n 

call  e rrnrl  ’ I p ’ 1 ; 

end  proceesgvar  ; 


mmrnm HMUMid 
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ppoc»»»l«  lnTtrJdcl:  proc(a.h): 
declare  (a,b>  byte: 

call  process*  I dent  *dc  Ka.s  invar  , s type  mp)  i 
If  itypentpO  lot  then 
do  t 

call  l Itera 1( ge taddr) : 

If  stypeap*dec  then 
call  genera tetbJ: 
e Ise 

ca 1 1 genera  te(b+ 1 ) : 

end  i 

end  process** lmvar*dc l ; 

processSlabe  1 '■  proc  : 

If  pass  1 then 
do  i 

If  ful l*look*up( mp)  then 
call  errort ’ dd  ' > i 
e Ise 
do  i 

ca  1 I enter i 

call  se taddr* codes  Ize > ; 
call  set ype < lab): 
call  se  t*b  I k*  le  ve  I < b 1 k*  1 e ve  1 ) : 
end  i 

end  i 

end  process* labe  1 : 

reso I ve* label :proci 

declare  C chkSb Ik. t Index)  byte: 

If  pass2  then 
do : 

If  ((not  f ul 1* lookup!  sp) > or  (getype  <>  lab))  then 
call  error < ' u I ' * : 
call  se taddrptr( 6) : 
c hk*b 1 k=  by t e p t r : 
t Index- pre  vg 1 nde  x ; 
if  b Ik*  leve  l<  > cliXtb  Ik  then 
do : 

do  while  prev*h lk*leve 1< t Index)  > chk*blk: 

t Index: t Index- 1: 
end  ( 

call  genera  to ( deb)  : 

call  generate) pre v* i ndex+  1- 1 Inde  x)  s 
end ; 
e Ise 

call  gen*two< nop) : 

end: 
e lae 

call  gen*two< nop) ; 
call  genera  tel brs ) ; 
cell  gen*t«a>(  ge  tad  dr ) : 
end  reso  I ve*  l'ebe  1 : 


K 


■ 


pro«ess*srrsy*dc I : proefa): 
dec lsre  a byte : 

call  process*ldent*dcl(a.snbvar, s typenp) i 
arr*loc(  arrSnum)  = ge  taddr: 
arrfnM*  arr*nnn+  1 ; 
end  proc ess*array*dc  I : 

cloae*flte:  proefa); 
declare  a byte: 

If  process*  Iden  t ( a ) then:  *"*  not  Implemented  */ 
else  call  error(’uf): 
end  c loaeftf  lie: 

asslgn*stmt:  pmc: 
call  chktyptj  i 

If  (I  pconn  t:slpco«nt-l*<'h  then  tee*':  im  1 t 1 p le  ass  ign  stmts  */ 

call  processes  to  re < a i )> : 

e Ise 


14  1 


IRl.UiQilW*.  11*1  l i 


call  processes toret a Id) j 
end  ■••  Ignts  tmt  j 

/*  execution  of  synthesize  begins  here */ 

If  llstprod  then 
call  prlntSprodt 
call  copri 

do  case  production;  /*  call  to  synthesize  handles  one  prod  */ 


/*ci«e  0 no  t need  */  ; 

/x  1 ' program)  : :=  (block'  _l_  */ 

If  pass  1 then 
do ; 

panel  - false; 

If  errorcount  > 0 then 
do  t 

call  prlntderror; 
call  oon3 ; 
end ; 

call  rewlndSsourceftf 1 le ; 

call  gentwoi codes lze+ 1 > ; /*  plus  one  to  Include  the  xtt  */ 
call  gent wot  count pr t ) : 
end  : 
e Ise 
do ; 

call  prlntderror; 
call  genera te< xl t ) ; 
call  generate!  7 fh)  ; 
call  wr  1 tedlntdf t le : 
call  c loaeSlntSf 1 le : 
call  mon3 ; 
end  i 


/* 

2 

< block>  * • - < block.  h*ftd>  < block  end) 
i 

/* 

3 

(block  head)  : - (block  head) 

( dec lara  t Ion)  ; 

*/ 

/* 

! 

4 

! 

1 (begin) 

1 

/* 

3 

< begin)  t : e begin 
call  Incrfb lkt leve 1 ; 

*/ 

/% 

6 

(block  end)  : = (block  body) 
call  decrtb Iklleve 1 ; 

: end 

/M 

7 

(block  body)  ■ - (statement) 

*/ 

/% 

a 

1 

1 (block  body) 

l ( a ta  tement) 

*/ 

/*  1 (declaration'' 

I 

/*  10 

t 

/*  1 l 

'*  1 1 

t 

/*  12 

t 

/■*  13 

l 

/*  14 

/* 


- (file  dec lara t ton> 

l -simple  declaration) 

I '-simple  declaration) 

Initial  option) 

I (nrrny  declaration) 

I '-array  dec  1 ar  a f 1 on)  (Initial 

I subprogram  declaration) 

I c x f c r na I dec  la rat  ion) 

I -‘2 


*/ 

*/ 

*.■ 

*/ 

opt  Ion)  */ 

* ■' 


13 


/% 

16 

{simple  declaration)  ss*  declaration  head) 

*/ 

/* 

16 

< identifier/ 

call  proe easts  1 mvarldc 1 ( ap . u 1 d ) ; 

X/ 

/% 

17 

< Initial  option)  = ''initial  bend)  done  t ant)  ) 

X/ 

/X 

ia 

< initial  head)  initial  ( 

X/ 

/« 

19 

1 

1 < initial  head)  {constant)  , 

X/ 

/* 

20 

> 

{declaration  head)  : : - declaration  type) 

X/ 

/X 

21 

t 

1 declaration  head)  {identifier) 

X/ 

/X 

21 

call  proceaola 1 invar  3dc 1 ( mpp i , a id » : 

X/ 

/X 

22 

{declaration  type)  : - string 
do  t 

call  se  ta  typespd  tr>  ; 
call  genf 1 n t lv( s f r*s Ize ) : 
end  s 

X/ 

/X 

23 

1 string  dize  option) 

do ! 

call  ae  ta  t ypemp's  t r » : 
end ; 

X/ 

/X 

24 

1 Integer 

call  ae ta typespt  int ) : 

X/ 

/X 

23 

1 dec Iraa 1 

do  t 

call  ae ta typespt dec) : 
call  genl intlvl  decls lze) ; 
end : 

*/' 

/X 

26 

I decimal  {a  Ize  option) 

call  ae ta typempt dec ) ; 

X/ 

/X 

27 

{size  option)  < {variable)  ) 

If  at  ype  op  1 * 1 n t t he  n 

call  1 1 1 load  ( ayiul  oemp  l)  : 
e lae 

call  errori  ’ a 1 ’ ) t 

X/ 

/X 

28 

1 < { Integer)  > 

do  t 

call  moved  a lcfvarc  ( mpp  1 ) , . accum,  7)  : 
call  geiconl 1 nt ) ; 
end : 

X/ 

/% 

29 

<atatement>  : 5=  {balanced  atatement) 

X/ 

/X 

30 

1 {unbalanced  atatement) 

X/ 

/* 

31 

l 

{balanced  statement)  : s dimple  atatement) 

X/ 

/* 

32 

1 {If  clauae)  < true  part)  else 

X/ 

/* 

32 

{balanced  atatement) 

call  ae t tenter t t ypemp 1 ) j 

X/ 

/* 

33 

1 {label  definition) 

X/ 

/t 

33 

(balanced  atatement) 

x/ 

/* 

34 

l 

{unbalanced  statement)  : ‘ - <lf  clause)  {statement) 
call  se ttentert  typemp) : 

Xs 

/* 

33 

1 {|f  «* lnuse>  <true  part) 

X/ 

/* 

33 

else  {unbalanced  staler*  nt> 

call  ae llentert typenp 1 > : 

X/ 

/* 

36 

1 < label  definition) 

x / 

/* 

36 

{unbalanced  statement' 

X/ 

/* 

37 

t 

<true  part'  ::=  ' t-a  1 -mico*!  e t:i  te-icnt ) 

X / 

do  ; 

call  branchlr  laise'  '>r«' 
call  s»l$»nl"ri  1 ype  l ■»»•-  I ) t s 
end  ; 


/X 

38 

■ labe  1 de  f i n i t ion 
cull  pmcesaSl.i!-*) 

: : - < i <1 « n ♦ i f \ **  r ' : 

t 

/X 

34 

call  process?  labo  I : 

l < i n 1 *»«*••»  r • 

40 


simple  statement 


(block) 


. 

li 


/* 

/* 

/* 

/* 

/* 

/% 

sx 


t 

41 

42 

43 

44 
43 

: 

40 


I < ass  ignment  a ta  tement)  */ 

I <for  statement)  */ 

I (while  s tateiwnt)  x/ 

I <read  »lstem«nt>  */ 

I (write  iitaUiwnt)  */ 

I <cas<>  statement)  */ 


/X. 

47 

1 < go  to  state me nt> 

X/ 

/X 

48 

1 'close  statement) 

X/ 

/X 

» 

49 

call  genera  tel po p) t 

1 < procedure  call) 

X/ 

/X 

30 

1 < Ident 1 f ler> 

:r./ 

do  i 

If  ( ( process?  Identt  sp)  <)  pro)  and  pass2)  then 
cn  1 I »rror(  ' nf  * ) : 
call  proces.sJppoc  < pro  ) : 
call  ppoclpro : 
call  gene rateC pop); 
end : 

/%  31  (assignment  statement'*  ::=  (left  part>  (eiprf«?inu  X/ 

call  nss  Ignta  tint  ; 

/x  32  (left  part* 

/X  'assignment  statement)  */ 

call  ass  IgnSs  tint  : 

/■x  33  <left  part>  'variable)  :=  x/ 

do : 

If  typemp< > subvar  then 

call  genl  loc  ( s t ypenrp . syml  ocirp)  ; 

1 pc  o un  t = lpcounttl: 
end  s 


/X 

34 

< express  Ion)  = 'arithmetic  expression) 

*/ 

/X 

33 

1 if  express  icin'  < expression) 

T./ 

/X 

30 

‘'arithmetic  expression)  s:*  < terro> 

X/ 

/ X 

1 

37 

1 < n r i t hme  t 1 c 

express  ion  * 

*/ 

/ X 

37 

' t-rm) 

X/ 

call 

chktyp 1 f ad  1 ) : 

/X 

88 

1 I nr  1 1 hme t i c 

express  Ion  - 

x/ 

/X 

38 

■ term) 

X/ 

call  chktypXsbDi 

/X 

59 

1 < a r i t hme  tic 

express icr  ! 

X / 

/% 

39 

T ' term) 

X/ 

If  c hk t yp5  t he n 

call  genera te< c a 1 ) : 

/% 

60 

i - 'term) 

X/ 

If  c hk  t yp3  t he n 

call  genera  1 e ( nee)  : 

/X 

61 

1 -*■  < term' 

X/ 

If  chktyp3  then  : sx  uo  action  reiuired  xs 

/X 

62 

(term)  st*  'primary* 

X/ 

/X 

l 

03 

1 < term'  *-  ' primary* 

X/ 

call  chktyp  1<  rap  1 ) : 

/X 

64 

1 *.tcrm)  ' 'primary' 

X/ 

call 

c hk  t yp  1 ( d v 1 i t 

/X 

03 

' p r 1 ins r y > : '•  : : pr  irnry  element 

X/ 

-'■*  00  I v pr  ' i.  nr  y **  p r l —r>  r y clement) 

i a 1 1 chk  t yp I ( 1 xp • : 

/x  07  < pr  Inmry  e I ••  m" n t ' - var  lab  ' • 

If  t jrpe*p=  « I mva  r live 

•■all  I it  I end  f « I ■ « p * s 


* 

</ 


l 


1 


e !•* 


/* 

/* 

/* 


/* 

/* 

/* 

/* 

/* 


60 


60 

76 


If  tTP«6P<>  *n,)Tar  th^n 
c n 1 1 procf pro : 

I ■Ccon»tant> 

J '"procedure  call> 


I ( < a<»«  1 ^nm*n t *tateroent> 

call  setstypemptntypemp: =s typempl > : 

^ I It  (Mtpr>-»s  ion>  ) 

do « 

call  •«  ts  lrP*»P(  * typ»«P  1 ’ ! 
call  se  t type  mp<  t ype  nip  1>  : 
end : 

72  /con*Uat>  ::=  (integer’ 

call  gencon(lnt)| 

73  1 < dec  Inn  1 ' 

call  gencont dec ) : 

74  I <str  insr? 

ca  1 I genconl  itr)  i 

73  < var lab le>  (identifier? 

call  processSvnr! sp) ; 

7^  I ( sub»cr 1 pt»d  variable- 


/•* 


77  ’ 'file  declaration'  :;=  <flle  bead?  < f i le  name? 


*/ 

%/ 

x,/ 

x/ 


r./ 

x/ 

x/ 

T/ 

x/ 

*/ 


/* 

/* 

/* 

/X 

/* 

/% 

/■* 

/% 

/* 


/* 

/* 

/■* 

/■* 

/* 

/■*■ 

/* 

/* 

/* 


78 

79 
8« 
81 
82 
82 


< f 1 le  head?  : : * file 

I (file  he  ad  > <file  name? 

* < file  name''  : : * : s tr  lng>  < length  optlon> 
I ' s tr  1 ng> 


I (Identifier?  < length  option? 
call  process* l den  t #dc 1 ( mp , f 1 le 1 . 9) s 
t : ilent i f ler? 

call  proce«a«ldent*Jc If sp, fl le 1 ,0) : 

94  < length  option?  ' <ldentifler>  3 

If  proceifl Ide n 1 1 mp > s 1 n t then; 

93  I " < Integer?  3 

array°dec  Ura  t lon>  <arrar  Hat>  < bound  pair  llat> 

do  i 

call  ganCI n t*v( ar r*d 1m) i 
call  gen*lnt9v< arrtnum) t 
call  g«n»lnt*v< atypemp)  : 
call  generate!  row> t 

do  while  (irrfmm  : = arrfnum-  1 > < > 235  ; 

call  H tera  l< nrrlloc! irrlnual ' : 
end  i 

87  <irr«y  list?  tt*  'nrriy  head?  (identifier? 
call  proc«aa#array*dc 1 ( ap>  i 

88  (array  head?  = (declaration  type?  array 
■ frftiun*  0 ; 

Qtp  j < array  head)  • Identifier)  » 

call  procaa»*nrray*d«'  1(  mppl)  : ^ . , . „ 

9«  < bound  pair  Hat?  (bound  pnlr  head?  (bound  pair?  3 

arrtd lm=arr#d lm+ 1 : 

41  (bound  pair  head'  : : - 

arr*dlnx0:  . ..  . . 

42  I (bound  pair  head?  (bound  rn>r>  > 

arrtd  lm*arr*d  lm+  1 •• 

93  (bound  pair-'  : : - (expression?  : (expression? 

If  ( s typemp< : Inf ) or  ' a t ype  * p<  ? lull  then 

csll  errort'bp'*; 

94  (subscripted  variable?  ::s  (subscript  head 

44  ‘"expression?  3 

do  i 

If  st  ype  mp I ' ' I n t then 
call  error1 ‘sh’t; 
call  lit  |nn<l(  •»  y*’i  | •*<.' tr.pl  ; 


*/ 

x/ 

x/ 

X/ 

X/ 

X ■ 
X/ 
*/ 
X/ 


X/ 
X/ 
X/ 
X/ 
*/ 
X/ 
X f 


X/ 

X/ 


Id* 


r — 


i 


/* 

/X 

'* 

/X 

''X 

SX 

/•X 


/X 

/X 

/'X 

/x 

sx 

/X 
/ X 
/X 
/ X 
/X 
/X 
f X 
/X 
sx 

/X 

/* 

/* 

/■* 

/X 

/X 

sx 

/•* 


"all  jfiifrj  ( n ul-o  1 : 

end : 

93 

'subscript  head'  = 

< idem  t 1 f ter>  ’ 

X/ 

9ft 

cn  1 1 process! array'  nipt  : 

1 

1 f a typcmpl  < > int 

- subscr Ipt 
t hen 

head'  < express  lor..'  . 

X/ 

call  »rr»r( ‘ ah 

• ) • 

97 

'go  to  statement' 
call  reso 1 ve! la be  1 ■ 

< go  to' 

1 d«nt If  ler> 

X/ 

98 

1 

call  reso 1 ve* lab- 1 : 

< go  to> 

Integer) 

X/ 

9<* 

'go  to>  : : = go  t-> 

X/ 

190 

1 goto 

X/ 

101 

<r«ad  statement'  : = 

■read  he ad: 

> < var  table)  ) 

X/ 

do ; 

call  gf tlfte Id; 

If  f I 1 e l o then 
do  ; 

file  lo=  f a 1 ire  : 
e nd  i 


e 1 se 

call  genera te ( ecr 1 : 

end ; 

102  ' read  head)  i ! = rend  ( 

call  genera te( rcn> : 

I rend  < f 1 le  opt  Ion)  < 

109  I read  head>  < var lab le)  , 

call  ge t • f le Id : 

105  <wrlte  statement/  < wr  t te  head)  ^express  Ion-  ) 

c* I 1 pnt«f le ld(  vie ) : 

1 ^ wr i te  head>  'tab  expression 


107 


l 


l < write  he  ad  > <pic  de  f ini  Men.' 


108  < write  head)  • • - i te  ( 

call  generatefdmp' : 

I write  <file  option)  ( 


1 10 
1 ( 1 
1 12 


I writeon  ( 

1 writeon  <flle  option)  ( 


1 'write  head)  'expression)  « 
call  pvtfMtldf  wic*  : 

^ ^ norite  head)  * tab  expression) 


I 


1 14 


I 


I 'vrite  head)  <plc  definition) 


115  <rile  option)  ::=  < identifier) 

If  processSldentt sp ' * filel  then; 

110  1 r identifier)  < rec  option) 

If  processtldent  < nip*  = filel  then: 
else  call  error* 

1 1 I < s tr  1 ng> 

I 

I ^string)  < rec  option) 
t 

119  < rec  opt lon>  . < 1 1* u t 1 f I* r ^ 

If  tf  process*  Ident  f-«n  < s « imvar)  and  (getsnbtype  2 lnt>) 
else  call  error  < ’ ti  1 ’ M 

1 20  t « i n t e ge  r ' 

call  gene on<  1 nt  i : 

121  ‘'pic  definition  pic  head'  'pic  llst>  ) 


%/ 

X/ 

X/ 

X/ 

X/ 

X 

x/ 

X, 

x/ 

X/ 


X ■ 

X/ 

%/ 

X/ 

X/ 

X , 


then; 


122  <ple  head) 


p '•  ** 


«•  t r i n« s 


i pi**  * ‘ d«*  n t I f ie  r 

if  ( process^  | *lo  n t * <t-  i r s imvar  .md  g*'Tsnbtype  2 s*» 
call  *•  rro  r t * *i  * 


t he  n : 


i 


123 


xpresa lon> 


¥ 


/* 

/X 

/X 

/x 

/x 

/x 

/X 

/* 

/x 

/x 

/X 

/X 

/X 


124  <plc  ll#t>  1 

125  1 <Pic 

12*  < tab  •xpre*»ion> 

12?  < 1 f c l«u®e>  : ' = if 

cti  1 b rtnchlc  tail®*  < » : 

120  <if  expren«lon>  *:= 

\2<)  'boolean  express  ioa 

130 

130 

eall  chXtyp  l < bor  > i 

131  <b»o lean  term>  • : = 

132  * 
If  chkt  yp3  then 

call  genera te( no  to ' : 

133  1 

133 

call  chktypl!ando)  : 

134  < boolean  primary!  • 


list>  . < e xpress  l«n> 

2 tab  < e tpr<* **  lon> 

'boolean  expression^  then 

\ if  rlilUfle)  ' express  1 on> 

> : : = < boo l^an  term> 

I < boo  lean  express lon> 
^ boo  !®sn  f ♦=•  r 

< boo  lean  primary'* 

not  < boo  lean  primary/ 

c boo  lean  tern)  and 
: boo  lean  primary/ 

:=  < logical  expr^s* ion> 


else 


or 


/x 

/% 

/% 


/X 

/X 

/X 

/X 

/X 

/% 

/% 

/* 


/% 

/a 

/a 

/x 


/x 


igjj  ’ i ( (boolean  expression>  ) 

call  ae ta typemp! a typemp l > ! 

I3fi  < logical  expression-'  ::=  (expression  (relation! 
jgij  (expression 

If  ( s t ype mp~  strl  and  ( s t ypesp- a t r ) then 
call  generate! typerapl+2) : 

e tae 

call  chkt  yp  I!  typemp  1 » s 

137  < re  la  t lon>  ■ ■ - - 
call  set  typeap! eql > l 

138  I < 

call  se t typeapl  las  1 ; 

134  ' > 

call  set  typesp!  gtr>  : 

140  I ( comp) 

l 

141  < conp>  ! s - < > 

call  ae  t typenp! ne  q) t 

143  • < 8 

call  ae  t typemp!  le<i)  : 

143  1 > s 

call  ae  t typemp!  ge<t>  s 


44 


43 

46 

47 


< wh 1 I e 
do  i 
call 
call 
ca  I 1 
end : 

( whl le 


48 


atateinent-  :s*  (while  clause-'  <do  atatement' 

genera  te( brs  > : 
gentlwl  eyml«cmp)  ; 
se  t •enter!  t ypemp)  i 

c Iatt*e>  ts»  (white!  (boolean  express  Ion' 
call  branch#c lause! bac • : 

< wh  1 1 e > '•  ••=  while 

call  ae tsynloomp! codes Ize) i 
( f0r  statement  (for  clause!  (step  expression 

(until  clause!  < do  statement! 

do  t 

call  genern t e ! brs ) : 
call  gen* t wo < s ym I nemp 1 : 
call  setlentrrl  t ype  ( -,s  p—  1 ) ) ; 

e nd  t ,, 

(for  clause!  ::  = for  nsslgnment  statement! 

do  | , 

or  ( 9 t yp l he n 


If  ( type#p(  ' s Imvor > 
call  error! ' n 1 ' • 
call  generate!  I*  r.«  i : 
call  comp  I l«rS 1 n be  I 
rail  se  tsymlocmp1  '• 
mil  literal!  symlo. 


.11  ..  • 


Ixe  ) 

n * 


,4T 


*/ 

X/ 

X.’ 

X/ 

X/ 

X/ 

X/ 

X/ 

*/ 


/*  13*  <iuitll  clause  > < iin  t i 1 non-terra?  < expression)  «/ 

do : 

call  genera t e ( le q>  : 
call  brenchtc  latise  * bsc  > ; 
end  ; 

131  ' nut  1 1 non-  term)  : = un  t I 1 

IT  not  atep*flag  then 

do ; • 

call  gen* 1 n t Sv<  1 > : 

call  s teptgcn:  j 

end ; 
e I ae 

« tep*f lag* f a lse : 


/* 

132 

< d o state  me  n t > - * = 

<lc*  simple  statement) 

*/ 

/X 

133 

i 

<cloae  atatp»nt’ 
call  c lose*f l le( sp • : 

: : = o lose  <i<l*»ntlfier> 

X/ 

X 

134 

call  c loae*f  1 let sp)  ; 

1 's  close  slate  me  n t > , 

< {dent i f !er> 

X/ 

X 

133 

< subprogram  declaration)  ::*  'subprogram 

head i ng> 

X/ 

* 

133 

do  ; 

^simple  statement) 

X/ 

call  1 1 tera 1 ( aymlocmp) : 
call  genera te(  uns ) : 
call  genera  tel  r t n)  : 
call  decr*b  1 k.*  le  ve  I ! 
call  se t Senter ( t ypemp > : 
call  1 1 tera  l < sytn  loon.p-^J  : 
call  gen* 1 nt*vt *• : 
call  gene ra t e ( a I d ) s 
pvnura, proont=0i 
f f .lag*  fa  lae  i 


■ X 

end ! 

134  < auhprogram  heading) 

: = < function  heading) 

r / 

f f lag*  true : 

1 37 

' proc  e d ure  heading) 

>. 

'* 

130  < function  heading 

< paramle-ss  function) 

*/ 

.»  ' 

"function  pa r a ran > 

X/ 

/* 

do  t 

call  genera  te*  <*v2>  ; 

If  pteat<)0  and  p.iss  1 
call  error*  ' pd ' ' : 

end  : 

160  < procedure  heading' 

t he  n 

' = ' paraml  >ss  proc> 

X/ 

/* 

161  l 

( : proo  pnrnms> 

X/ 

/X 

do  t 

call  generB tefa v2) : 
if  pfest<>0  and  pnss 1 
e nd : 

162  \ paramleaa  function? 

I he  n call  ♦*  r r o r f ’ pd  ' > ; 

: : = < dec  lara  t ion  type>  func  f i- 

:i  x/ 

/X 

162 

< l de n t l f 1 e r ' ; 

X. 

/X 

roll  process $pr nr  5*1  c l < sp-  1 . f mic  , s t yp**mp)  : 

1 63  f un«*  t Ion  *3  purnm*  ’ r 'function  he  nd ) < 1 den  t i T 1 * » 

' ) ; x/ 

/X 

do  : 

call  proctsef  lilciil?l- 
par^lle.pteat  = , pcouni  . * 
call  proefsa v : 
e nd  ; 

16* 

1 < mpp  \ . parr*  .01; 

P<*  «»  > Tl  1 1 > • 

! • func  t i • • ti  A parnms'' 

X 

/X 

1*4 

s <1  .<  • I.ir  i 1 io:i>  ; 

X.- 

l 


if.  r, 


l ft 


f un«' ! Ion  li<  ^1 


\ n •*  I n ?’;1  t l t yl»e  ' 


f n no  t i « i 


it  • 


163 


/* 


✓ * 

/T 

/•* 


/•*■ 


163  'identifier'  ( 

cal  1 proceas*proc*dc  1<  <p-  ! , fiinc  r >t»> mpi  ; 

16ft  f mic  lion  lie.nl.1  . identifier  > 

do  | 

cal  I proceea*ldent*dc  1*  rupp  I . papn.  <'  ’ 

pcoun I - pco un I + 1 : 
end  s 

167  ‘paramlesa  pro-.-'  : - procedure  Identifier) 

do  : 

call  proce#a*proc*de  1 < r pp  1 . pro  . r>  ■ 

call  procleav; 

end  ; 

16H  (proc  3 paraits)  1 i:  procedure  head  > < identifier  - 
do  : 

cal  1 proceasS  1 den  t S-lc  if  mpp  1 . par  in . ‘*>  ; 
par me , plea  t ~ ( pcoun I ; - pc  o un I + 1 ) ; 
ca  I 1 proclnvi 
end ; 

169  1 proc  3 parnms.’  ' dec  larat  ion: 

l 

176  < procedure  head)  ' - procedure  identifier)  ( 

ca  1 1 proceaaSprocS-i*  I ' npp  I , pro  . 0 » : 

171  i ‘‘procedure  he  a <1  > (identifier 

do  : 

pcount=poount+l : 

call  process*  ld“n  t *d--  I < mppl  , par m, 0 1 : 
end  : 

1712  < procedure  call)  : = lea  11  heading)  <■  express  Ion' 

do : 

pcoun t 1 pcoun t + l : 

call  chec  kpartti!  * t ypetnp  1 ) : 

call  procSpro ; 

If  f pcoun  t<  > pco  nn  t and  pans2  ; iie  n 
call  error! ' pc  • ; 

end  | 


if. 


*/ 

*/ 


/* 

173 

< ca  1 1 heading)  - ( Iden  t i f ier>  ( 

do  ; 

if  ((b'-=processSident(  mp)  > < ) f line  ) 
ca  1 1 error*  ' up ' ) ; 
call  proceaaSproc < b ) : 
f pconnt - ge  t parm: 
pcount:0i 
end  i 

and  (bOpm*  ti».  u 

/* 

174  • lea  11  beading'  < 

do  i 

pco nn t = pco un t + 1 : 
call  checkparml a typ-np 1 > : 
e nd  : 

express lon> 

*/ 

/X 

173 

(external  declaration)  (declaration  type)  external 

/« 

173 

f unc  t ion 

(external  list 

X/ 

/* 

176 

1 external 

procedure 

X/ 

/* 

17ft 

(external  list) 

X / 

/* 

177 

<extem*l  ll*t>  ' { dent  1 f [*>  r > 

1C,' 

/* 

170 

1 x t erna  l I 1 a t > 

, < i n t i f i e r 

/* 

i 

179  < caae  statement)  t-  case  heading) 

do  : 

do  i - 1 to  n j 

coll  P r lahl»-i  1 : 

end  : 

call  set*enterf  1 ype  rip  ■ 
e nd  s 

■ ease  b lock 

* ' 

/* 

IOO 
d.  : 

l f 

'■fflie  he  ad  \ nit  > - rmo  < o xpr^^'  1 n 

wtypeiwpl'  ■>  Int  t*vr 

' o f 

X/ 

call  error! "ni" >: 
col!  gen*lnt*vv  .11  : 
coll  g»  ne  r a t r < mp  ) i : 
coll  *e  IIcom  p | IcrS  / 
coll  eo  t | ypempf  | | , 


111 


Laaai&s 


I 


! 

f 


rail  ;rnrra  te  ( l-e2'  ; 
call  *re  n#  t *m  ( ire  t addr-4  • : 
call  qjc  ne  r a * e ‘ s 1>  r ) : 
call  eeneralel bra) : 
c 1 a i>  < o = c l • b I e * ! i 
call  e n t e r •comp  i l e r S f n b-  l 1 <1 ) : 
n=0: 
eud  : 


/* 

101 

<case  b1ock>  *’2  hearln 

<c«se  block  body>  end 

%/ 

/* 

10” 
ca  I 1 

<rase  block,  body' 
ea?  e!t?  tatp  ; 

state  rao n t ' 

T./ 

/'* 

end : 

ca 

«'*<>  f 

1 l caseSai  t a te  : 
ca?*s  sta  tome nt*s/ 

cage  bl«/'*k.  bo<ly>  : <8tat»n»ut) 

*/ 

end  synthesize; 


/*****«****'«**********:':»••*!••'••>•  yr  ******* 

/-*  --rror  recovery  rent  i :<•- >- 

/****»  ' XXXXXXXXXXXXT.XX . \ r":  r.  ■.■■i;.'  ■:XXXX'r:r.-jlX:r.  >v  • 

noconf 1 lc i : proc  (estate1  byt  - : 

dec  la--*  estate  state«ize,  < ! r . k>  Indeas  izc  : 
j - ln-lexlt  -state): 
k - j -*■  iniletZlca  ta  t«  1 - 1. 

do  l = J to  k; 

If  read  1(1)  = token  . aeti  return  true: 

e nd  : 

re  turn  false; 
end  noconf  l ic  t ; 

recover:  proc  stateslze: 

declare  tap  byt»,  ratal'-  sl.a'-slze; 
do  forever:  tap  = a p : 

do  whl  1 e tap  <-  io.'i: 

If  aoconf  1 lc  t<  rsl.)  : :»ta  testack1  tap))  then 
do;  /*  state  will  read  token 
If  ap  <>  tap  then  -?p  = tap  - I: 
re  t urn  ratal?: 
e nd  : 

t s p = t s p - 1 I 

e nd  : 

call  scanner ; 
end  i 

end  recover- 


/*  y**-******s;*****'»*-e*3::e  r;**t*t****tt****n:*tx***t*i:j:'tjr.-:"'  ':*  */ 

/x  t**-j:rs:****  lair  parser  routinea  ***.»=•:•  a *, 

/X  t**ait*********a*af*:r  ;r-‘:*vi'xjrs*a***3:  tjtwxrt*******!:'^  "w 


do:  /*btock  for  dec lara t > e 

declare  ( 1 , J . k)  1 nd°xs  i r.e  , index  byte; 

Initialize:  procedure: 
call  title; 

call  Initial lzcfacann-r  ; 
call  Inltlnll ze#«  ym  Ml: 
cull  Initial  Ize  *-<  yn  I h-  - . r.  - : 
end  Initialise: 


Hetlnl:  pr->cedure  lnd«-.:s  i ■■ 
return  1 tide x 1 * a I a t ■ 
end  »»  t 1 a I 


I lit—: 
r » 

end  ap-  t 


proc -.lure  inlets.  . 
him  I ii  Jo  x2(  e t o t ••  1 
I n2  : 


Incsp-  procedure; 

if  ' sp  : = «p  * 1)  - I n<r  * 1*  f s ta  tes  tack)  then 

oa  11  error*  ' so  ' 1 ; 

end  Inosp: 


lookahead:  procedure  i 
If  no  look  then 
do  : 

on  I I so anne r i 
no  look  - false; 

If  1 In  t token  t hen 
call  pr 1 nf $ token : 
e nd  : 

end  lookahead; 


■ettvarrf l:  procedure*  • 
declare  1 byte: 

■K  ae  f vnrc  , and  in  ■■'•ernt  varindey  */ 
varc ( vnr Index*  = i ; 

I f(  var  index:  =var  In-l-':."*- 1 > > lenaf thi  varc  ) then 

call  error! ’vo' i : 
end  setivordl: 

/*  Initialize  for  Input  - on (put  operation* 
call  move'  rfcb.  .wfcb,<n  : ^ put  filename  In  write  fcb  */ 

call  setup*lnt#f i !e«:  * create  an  output  file  for  code  yene-nted  */ 

call  Initializes 

do  forever: 

do  while  pass  1 or  pass2: 

/*  initial lze  variables  </ 

comp  1 1 i ns . no  loo  k=  true : s?ate=*tart9: 

sp=233 : 

varlndex.var  - 0: 

do  while  compiling:: 

If  s ta te< * maxrno  then  read  state  */ 
do  s 

call  Incsp:  «■ 'a  tes  tack*  sp)  r9  ta  te  : 

l=g:etlnl:  call  lookahead: 

- l + tfe  t 1 ti2-  1 : 

do  1=1  to  : 

If  r»nd 1<  1 1 5 token  then  - * save  token 
do:  -car' sp)  =var  index: 

/%  copy  accumulator  to  proper  position 
do  Index  = 0 to  acnnm: 

■’all  se  t *varc  * i ( acc  not  index)  > ; 

e nd  i 

has  h< sp)  = has he ode : 

/*  « a v«  re  1 a t 1 ve  table  location 
s t a 1 ■ : r “a d 21  1): 
no  I o<>  k=  t rue  : 

1 = .1 : 

e rid  : ■■  I se 

If  l = .l  then 
do  : 

■’all  “<•*,.  r < np  ’ ) : 

Iflstate  : s r eco  ver  ' = J)  then  r o mp  i 1 1 ng:r  >*n  I - ' 

e nd  ; 

• nd  : 

end:  e Iso 

If  state>mn.xpno  then  • apply  pr'I'ftV'n  state  *■ 

«lo  t 

» i ; nr  r l = I 5 

pPO'lur  f |n  n - '*'*  » * — w:»  x |>rio  : 

<•  n I I «•  yn  t h«»  * 1 
n p=  mp  : \ ‘ z“  t : >’  ‘ 

va  r I n»l  *»  x=  • •>  i* ' ;•  1 . 


j-atatestacMfn)  ; 

do  whl  le  1 :i:=npplyl<l)>  < > 0 and  J < > K; 

1= 1+  I : 
end  : 

if(state:=  a pp  1 y2<  i > > = <>  t he  n ••onp  i 1 i ng  * f a I : 

end i else 

If  a ta  te<  1 max  I no  then  '*  lookahend  state  */ 
do  } 

i=getlnl;  call  'm-ikahead: 

do  while  i k:- lookll i* I • > 9 and  token  < " k; 
1=1+1: 
end  ; 

s ta  t e - look2(  t > • 
e nd i else 
/*  pnsh  state 

do ; call  i nesp : 
s ta tes t ac k< s p > - 5“*in2: 
state  = get l a 1 : 
end  i 

end:  of  while  ronpl  1 Ing  *■/ 

end;  /*of  while  pass  1 nr  pns.s-'*-' 
lla tsuurce  = false; 
list  prod  = false; 
llsttoken  = false; 
call  Initialize: 

pass2  = true; 
end;  /*of  do  forever*.' 

end;  /=  of  block  for  parser  * 

end;  /*of  block  for  declarations'/ 


eo  f 


Ik 


10Oh:  /* load  paint 

for  Interp 

program*/ 

declare  .'*|flobel 

1 1 tern  Is*/ 

I i t 

1 1 tern  1 1 y 

* 1 1 tera 1 1 y ' . 

true 

1 1 t 

1 1 • , 

fa  Ise 

1 1 1 

O'  , 

fore  ve r 

1 It 

'while 

true  ’ . 

cr 

1 1 1 

' Odli’  . 

If 

1 i t 

Oah’  ; 

declare  /*op  codes  for  algot- 

m machine 

Ins  true  t Ions*/ 

dec  i 

1 1 t 

' 25 ' . 

9tP 

lit 

' 1 ' . 

iQt 

1 1 t 

'2'  . 

dc  b 

1 1 t 

' 5 ' , 

brs 

1 1 t 

'34'  . 

bac 

1 1 t 

'35'  . 

1 m 1 

1 1 t 

'27'  . 

ira2 

1 1 t 

'28'  : 

declare  "'♦Interface  points  fo 

r rp'ni  and 

1 nt  erp*/ 

bdos 

1 1 t 

' 05h' . 

ho  o t 

1 1 t 

'Oh'  . 

d iskbuf  f loe 

I i t 

' 80h ' . 

fcb  loc 

1 1 t 

' 5c  h’ . 

<1  i «kbuf  fend 

1 1 t 

' 100h' , 

bdoebeg;  In 

address 

1 n 1 t 1 a 1 ( Obh)  , 

max 

based 

bdosbegln  address. 

buff 

address 

in  it  lalldiskbuffend)  ■ 

char 

based 

buff  byte. 

f i 1 » name 

address 

initial! fc bloc). 

f np 

based 

filename 

byte: 

declare  /'♦build  variables*/ 

pr  t base 

address , 

pr  tSaddr 

address . 

pr llentry 

based 

pr  tSaddr 

address. 

codehaae 

address . 

code  p t r 

address . 

s t ac  kbase 

address , 

cur char 

byte  . 

swl  tch 

byte 

InltiaKfalsei, 

bl<l«f  lag 

byte  . 

b 

based 

codeptr 

by t * , 

a 

based 

codeptr 

add  resist  . 

temp  1 

address , 

t 1 

based 

temp  1 

by  t *>  , 

temp2 

address , 

t2 

based 

teinp2 

b y » «*  : 

/*  dec  larn  t ions 

for  interpr-* 

♦ op  */ 

declare  contz 

1 1 t 

' lah'  . 

quo  te 

1 1 t 

'22h'  . 

wha  t 

1 1 t 

' 63-  : 

dec  lare  »o  lchar 

1 1 t 

’Odh'  , 

eo  f f 1 1 ler 

1 i t 

lah'  . 

1 ntrecs  Ize 

1 1 t 

' 128' . 

d Iskrecs  Ize 

1 I t 

' 128' . 

« t r 1 n g d e 1 1 m 

1 1 t 

22h  ’ , 

conbuf  f s Ize 

1 1 t 

•80  ' , 

conao le 

1 i t 

O'  . 

nra  tnc  k 

1 t t 

'48',  /*stnck  size  times 

rta  xSh  1 k*  1 e ve  1 lit 

■ !«•  , 

ne  fa  t i vc 

1 l t 

• (• ' . 

pos 1 t I ve 

1 1 t 

' ! ' : 

declare  m 

r b rvl 'I  . 

r ^ a <1  • 1 1*  *'  -•*  **  . 


15* 


c 

baaed 

twobyteoprand 

based 

sb 

address 

s t 

address 

bra 

based 

ara 

based 

orb 

based 

brb 

baaed 

mpr 

address 

mod 

address 

declare  inputbuffer 

buf  f St)  pace  < conbrtf  fs  Ize) 

input  index 

ooubuf  fptr 

conSchar 

inputptr 

InputSchar  baaed 

nntaSread 

pr intbuf  f length 

pr i n t buf  fer  loc 

tabpos  1 

t abpos2 

t abpos3 

tabpon4 

pr I n t buf  fer 

pr Intpoa 

pr intbuf  fend 

rereadaddr 

input  type 

f le  IdS  length 

a ign 


rc 

byte  , 

rc 

address 

ra 

byte. 

P8 

address 

rb 

address 

r b 

byte. 

byte  ini t 
byte  . 
byte . 
address  . 

‘al(conbuffslze)  . 

based 
address  . 

conbnf  fptr  by  t <■  . 

1 npu  t p t r 
by  te  . 

byte  . 

i i t 

’“1  ' . 

I 1 t 

• ROh1 . 

1 i t 

• 1 42 1 . 

1 i t 

• 156*  . 

i 1 t 

• 170’  . 

1 i t 

• 184'  , 

address 

i n i t ia 1 ( pr i n f b 

based 

pr 1 n t buf  fer  fc 

1 1 t 

address . 
byte  . 
by  te , 
by  te ! 

‘ Oc  7h ' . 

•'  fer  loc  ) , 
■ e . 


declare  flleaddr 
fob 

f c badd 
eo  f addr 
buf  ferSend 
records pointer 
buffer 

nextd  likchir 
re gS length 
b loots  Ize 
bits  leva  1 
errorSf lag 
b lk(  maxSb  1 tS  le  we  I i 
by teaSwr 1 t ten 
f Ira  tf  le  Id 
eo  fra 
eo  f r b 


address  . 

baaed 

f leaddr  by m . 

based 
address . 
address  . 
address . 
address , 

1 i leaddr  -!  :■ 

based 

reoordtpo Inter 

I i t 

address . 

' 128‘  . 

byte 

In  1 t i a 1 ( 235 ' . 

byte 

address , 
address . 
by  te  , 
address . 
address : 

1 n 1 t ia  1 ( f a 1; 

dec  lare 


<r«,rl.r2)  (11) 

byte  , 

< s l gnO , s 1 gn 1 , s 1 gn2 ) 

byte. 

< decPptfl.decpt 1 .decfpt2> 

byte  . 

c tr 

address 

noSsh 1 f t 

byte  , 

base 

address 

bSbyte 

based 

base 

byte  , 

biaddr 

based 

bane 

address 

ho  Id 

address 

h*by te 

based 

ho  Id 

by  te  , 

liSaddr 

based 

ho  Id 

address 

p t r#one 

address 

ptrStwo 

address 

pBone 

based 

ptrPone 

byte  . 

|>®  t WO 

based 

p t rS  t w.) 

byte. 

s (nr  1 1 o p 

address 

re  tPsddr 

based 

s tacktop 

address 

pc  b#p t r 

address 

f/rbt value  based  prbPp'r 

address 

<’  o nti  ter 

byte  . 

mo  ve  >o  n t 

address 

r»tlvol  no 

address 

1 *4 


anadSMtaa) 


1 


tea  t v»  lue 

address . 

tad  1 

address . 

ta«12 

address . 

tad3 

address . 

r*ptr 

byte  , 

over  f low 

byte. 

s tgnl f 3no 

byte  , 

e*f  la< 

byte  , 

s*f lag 

byte , 

zer«>3reattl  t 

by  te  : 

/*cp/n  Interface  routines*/ 

son  1 ! procedure ( f unc  t Ion . pa rnme  ter) ! 
declare  function  byt“  . 

parameter  address,1 
goto  bdoe : 
end  mo n I s 

mon2 : procedure ( f unc  t Ion, pa rnme  ter)  byte: 
declare  function  byte. 

parameter  address: 
go  to  hdos  i 
end  mo n2 ; 

moti3 : procedure  : 

goto  boot; 
end  mon3; 

prlntchar: procedure ( char ) t 
declare  char  byte: 
call  mon  1 < 2 . char ) : 
end  prlutchar: 

prlnt:proeednre<buffer)  : 
declare  bnffer  address: 
call  ntonll  9, buffer)  : 
end  print: 


cr  1 f : procedure  t 

call  pr Intchart cr) t 
call  pr i ntchar ( 1 f ) i 
end  e r 1 f : 

/*  procedures  for  build  */ 

open*lnt*f 1 le : procedure i 
fap< 9)  3 at 
fnpt  10)  * 1 I ' i 
f npt  11)  * 'n’t 
fnpt 32)  3 0: 

If  iaon2(  13,  f 1 tenaine)  3 233  then 
do  t 

call  print!. ' n 1 •’): 

call  c r I f t 
call  mon3t 
end ; 

end  open# intOf 1 le : 

readtlntftf l le : procedure  byt»i 
re  turn  ioon2'  20,  f I lenorr*  > : 
end.  read#  1 n t#f  1 le  i 


/•global  procedures*/' 

Incbitf  .’procedure  : 

Iftbuff  : 3 buff-M)  >3  -I  lull.'.  Ilf  :>nd  then 


do  ; 

buff  3 d Iskhnf f lor : 


If  read«lnttf 1 le  ' « »H-n 
char  - 7 f h i 

end  : 

end  Incbuf: 

9 to*char51nc : procedure : 
b * chari 

codeptr  = codeptr+1: 
end  atdrharllnc,' 

nertichartprocedure  byte: 
call  Incbuf : 
return  curchar  chnri 
end  next char: 

get*two#bytes : procedure : 
b < 1 ) - nerttchar: 

b 3 next •char: 
end  ge  tS t-woSby tea  i 

lnc*codeptrStwo  : procedure  : 

codeptr  - codeptr  + 1 + 1 : 

end  IncdcoileptritM)  i 

ge tparm: procedure  address : 

return  ahl  ( doub  let  ner.tchnr 1 . 8»  ♦ nextchar: 

end  ge tparm: 

pacUdec  Inal:  procedure!  loc*one  . locttwo  ) : 
declare  switch  byte, 

loclone  address, 
locltwo  address: 

pack: procedure : 

If  (switch  : 3 not  switch)  then 

pi  t wo  3 shit  plone~30h,4i  ; /*•  odd 
e lse 
do  : 

pS two  - pitwo  or  ( pione-30h> : /*  even  */ 
ptrltwo  = ptr*two  + I: 
end  : 

end  pack: 

ptrtoa*  3 loctaaei 
ptritwo  3 locitwo: 
awl tch  3 false: 
tempi  3 ptrltwo: 
pi two  3 0: 

ptritwo  3 ptrltwo  + It 
temp2  3 ptrltwo: 
pit  wo  3 9x 

ptritwo  3 ptritwo  + 1: 

do  while  pione  <>  9x 

if  ( pione  >3  ••’)  and  (plone  <3  '9')  then 

do  : 

ca  I 1 pack: 

1 1 3 t 1 ♦ 1 1 
end  : 

« lse 

1 f p*o  ne  3 * . * t lie  u 

t2  3 tt:  s*  left  offset  to  deept  *s 
e lse 
do  t 

erroriflag  3 true; 
r»  turn: 

If  ((ptrfonc  : 3 ptrlonr+l  I '3  dlskbuffen.lt  and  Mdiflng  ffce: 
do  ; 

P I rSo nc  3 d I akbu f r 1 : 
if  r-adilnrif  1 '*  then 

•1  o : 

plone1 2)  3 7fh: 

re  turn: 


«nd  i 
end  i 

• ad  t 

If  switch  thtn 
do  t 

t i * « l ♦ t ! 

ptrdtwo  * ptrStwo  ♦ Is 
end : 

t2  - t i — t2t  /*  right  offset  *o  d«cpt  */' 
fl  * ti  ✓ 2: 
pltm  ~ t 1 + 2s 
ptr®two  - ptrdtwo  + Is 

pCtwo  * positive;  /*  t h I *■  » i-*  !'l  used  for  dec  sign 
end  pac k*dec  l mo  1 ; 

/*  procedures  for  Inferp 

readchnr : procedure  byte: 

re  t urn  non2<  1.0*: 
end  read-'har: 

read : procedure!  a) s 

declare  a address; 
call  mon  I ! 10 , a > t 
end  reads 

open: procedure  byte: 

re  t urn  mon2<  l6;flleaddr*: 
end  open; 

c lose  •' procedure  bytes 

return  non2(16.flleaddr<; 
end  c lose  t 

d lakread : procedure  byte: 

return  raon2< 20 . f i 1 eaddr * : 
end  d lskread : 

d Iskvr l t“ : procedure  byte: 

return  mon2( 2 I . f 1 I eaddr * : 
end  d 1 s kwr 1 t e ; 

make : procedure  bytes 

return  mon2< 22 . f 1 lendd r ’ : 
end  make; 

delete: procedure: 

call  monUl9.fllen.Hr’: 

end  de  le  te : 

se  tdma : procedure  s 

call  soon  I ( 26 . buf  f » r >■ 
end  aatdma: 

se  lec  t : procedural  dr  1 ve  ) 
declare  drive  byte: 
call  mon I ' 1 4 . dr  I ve  * : 
end  se  lec  t s 

mask! procedure  < location1  n<H  r-  *e  • 
declare  location  address. 

1 based  local  i in  i i 
return  I and  Obfffhi 
end  mask: 

c hec  k®  I n 1 9s  i an  : proced  'ir»  1 n • i - t.  v • « : 
dac  lar»  value  address; 

If  ro  1 < h i alii  va  I ne  1 . I ' • I- 

re  turn  n-'so  t I ve  : 
e lae 

re  t ti rn  pea  I t I ve  : 
end  c her *4 i n I as | an : 


I5f 


1 


check* Int : proc»dure(  a tack* I o ' ’ t-vte: 
dee  tars  stackSloc  td  lr«s* : 

If  no  t ( ro  1 •.  hl*h(  a tack*lo<  • . 2 i ■ then 
return  true: 
else  return  false: 
end.  c hecU  i n t ; 

check* temp: procedure ( s tack* i-  c • byte: 
declare  «tack*loc  adilr-jf  : 

If  ( ro  1 ( hi  gh(  • tack?  loc  * . i ; * mid 

( ro I ( htght s toe k* I oc 1 . 2> > then 
return  true: 
else  return  false: 
end  check*temp: 

ee t*up*n»*: procedure : 

If  not  check*  In  t*a  l*n(  an  then 
ara  3 ara  or  4000h: 

If  not  check*  lnt*s  I*n<  arb  • f !i»  n 
arb  3 arb  or  4000 ht 
end  ae  t*up*nr*: 

check* no*: procedure t 

If  not  cliec  k*  I n t Sa  lgnf  ar  b • then 
arb  3 arb  and  Obfffli: 

end  check*neg:  j 

pop** tack: procedure : 

declare  num  byte; 
ra  3 rb: 

if  check*t  e rap 'arb'  then  J 

rb  * rb  - ( brr  -11'  : 
else  rb  1 rb  - 2: 
end  pop** tack: 

pnsh*s  tack:  procedure!  nuirl  : 

dec  lare  num  byt» ■ 
rb  ~ ra: 
ra  - ra  + num: 
end  pwhtstacki 

■ova : procedure ( source , dee  t . c «nn » > : 
declare  source  address. 

dest  address, 
count  byte , 

schar  based  enure*  byte, 
dchar  based  de$  ; Hyte: 
do  wht  let  count  : - count  - ! .*  <*  255: 

dchar  5 schar; 
sonree  3 source  * I : 
dest  3 des  t + I : 
end; 
end  •ova: 

fill: procedure (dest. char. n): 

•'*ftll  locations  stnrfln*  at  dest  with  char  for  n bytes*.' 
declare  dest  address, 
n byte, 

d baaed  dest  byte, 

c ha  r byte: 

do  while  (n:*n-P  ' Of '"It; 

d ■ c ha  r ; 
dest  - dost  * I: 

end : 
end  fill; 

«i*ror(m$:  procedure  ( use ’ : 
declare  ms*  address; 
call  prlnt*char(’ 

call  pr  I n t *c  har  ( h I *h'  ins  •>.-  • > 

call  pr  lnt*-'hnrt  lowt  ns*  ’ | 

end  frror*i»f : 


warning:  procedure*  Mirncxle  ) i 
declare  warncorff  address: 
call  c r 1 f : 

call  print*,  'wnrnins  *'*: 
call  ?rror*ca(((wirnoi>il»t  ; 
end  warning: 


er ro  r '•  procedure  ( errcode)  : 
declare  errcode  address: 
call  or  1 f : 

»rror*t  la«r  1 trnet 
call  print! . 'error  * ’ > ; 
call  errorSw*?1  errr  ode  ) : 
end  error: 

/g************:!::*:**:*  :****.:**:.:*: <«T^H:***l:»***s*it**************t*>  -*/ 

/f.  file  processing  rout  in»s  for  use  with  cp/m 

/•***  a:****:*  '«:****  :Sg:ic  -S’l:"  ::****»:**gj<*****a:a-f.g-  :#/ 

1 n 1 t I a 1 Isefd  i»k*buf  f er  : proro-i  ire  ; 

call  Ml  It  buffer. oof  filler.  1211?  : 
end  In  1 t la  1 ir.eSd  Iskfbnf  f er  : 

buffer  •«  tat  us  Wbyte:  procedure  l>  v*e  : 

re  turn  fch<  '.13)  : 
end  buf ferls Is  tuelbyte : 

se  t*b  uf  ferl* t a t us Kbyte :prooeduret  status!  : 
declare  status  bytet 
fcb(33)  - status: 
end  se tSbuf f*r*s ta tus*by te  : 

wr 1 teSmark: procedure  byte: 

return  bu  f f # r 9m  t a t us*by to : 
end  wr l f e Jmni-k: 

se  t*wr i f '(nark: procedure : 

call  se  t*buf  ferSs  ta  tiia#byt“' buf  fer*s  ta  t usSby  to  or  ftlh)  : 
end  se tSwr i teSraarki 

e learKwr  1 teimark--  procedure  : 

call  se t »bnf f erts t a t ustby t e ( buf f eris t a t us*b y t e and  Ofeh* : 
end  c learKwr 1 feKmark: 

ac t lv«*buf fer : procedure  byte: 

return  s hr (buffer Sstnt us Sbyte, l) • 
end  ac  t 1 ve  «b  uf  f er : 

s^tlbuf f*rf  I nac  t ive : procedure  ; 

call  se  tKbuf  f er*a  ta  t uw*l>y  to  < buf  fer*s  ta  tuskhyte  and  OfdhJ: 
end  se tSbuf f er* i nac t I ve ; 

se  t*buf fer*ae t 1 ve : procedure : 

call  se tKbnf feris ta tusKbyto* buf ferKs ta fueSbyte  or  92h) ; 
end  se t *buf f er*nc t l ve i 

•e  t* random* mode : procedure  : 

call  se  t*buf  f er*s  ta  t tis*by  t " ’ buf  fer*s  ta  t tisSbyte  or  O0h)  ; 
end  se t*random*mode t 

random* mode : procedure  bytet 

re  turn  re  1 1 bu  f f r rf m ta  t llsSt,  V te  , | ) ; 
end  rand  o m*mod • ; 


d tekSeo  f : procedure : 

If  eofaddr  - *}  then 
ca  1 I error*  ‘ e f ‘ ) : 
re  * e o f add  r * 1 : 
ra  * eofra: 
rb  s eofrb: 

go  to  eofeKitt 

end  d Is k*e o f ; 


r 


1 


f 11  Iff  1 leSbaffnr'-  procedure  : 

If  dlakread  - 9 then 
do  i 

'-all  ae  tfbuf  ferine  t 1 ve  : 
re  turn: 
end  i 

If  not  randomfmode  then 
do ; 

call  d lskfeo  f : 
re  turn; 
end  : 

call  lnl t la  1 lzefd lskfbuffer : 
call  m t fbuf f erfac t 1 ve ; 
re  turn; 

end  f l I Iff  I lefbuf fer : 


wr  1 tefd lskf l flreq: procedure ; 

If  wrltefmark  then 
do  I 

If  dlakwrlte  <>  9 then 

call  error(’dw’); 
call  c learfwr l tefmar kt 
If  randomfmode  then 

call  ae tfbuf ferfl nac t i ve : 
e lee 

call  In  I t la  I lzefd  Is  f e r i 

end  i 

recordfpo  inter  - buffer; 
end  wr 1 tefd lakfl ffreq: 

a tfendfd lskfbuf  fer : procedure  byte : 

return  ( rocardfpo  infer  : - recordfpo  inter  + 1)  >=  buf  f eripeiid 
end  a tfendfd tskfbuf fer : 

vnrfb lockf* Ize ’ procedure  byte; 

return  blockslze  <>  9\ 
end  mrtklocksizp; 

a torefreefp tr : procedure ; 

febaddt  lfi)  * recordfpo  Inter : 
end  a torefreofptr j 

wr 1 tefafbyte : procedure!  cfanr*  ; 
declare  clinr  byte; 

If  varfb lockfs lze  and  ( by te«wr 1 1 ten  : = by teswr 1 1 ten+ 1 ) 

> b locka lze  then 
ca  1 l ervor<  ’ er  ’ > : 

If  a tfendfd lskfbuf fer  then 
call  wr  I t e f d l a kf  1 f f r e <| : 

If  not  ac t I vpfbuf fer  and  randomfmode  then 
do ; 

call  fl  I Iff  I lefbuf fer: 

fcb<32>  1 fcb(32>  - I;  reset  record  no 

end  ; 

nextdlakchar  * char: 
call  eeltvr i tetMirk: 
end  wr I tefafbvte : 

netffl lefaddr ’ procedure ; 
prtfaddr  * mask(ra); 
flleaddr  - prtfentry: 
eofaddr  * febodd’  I*))  : 
ca I t pop**  tack: 
end  ae If f I lef oddr ; 

aet*fllefpoluf»ra:procedure: 

bafferfeud  - (buffer  ;*  fll«ndilr  + '13’  d I «r  kr“c  a 1 ze  : 
record  po  1 n * c r 1 f^bniH1  lit*  . 
h toe k*  I z«  - f c hedd ( 17’: 
call  • e M r.n  i 
»nd  se  tf  f I 1 «•  >p<.  I n te re  : 
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i 


<•<*  taplf  I If  l«*r  • ■ nt  : pror**  < t 


If  «p«n  - 255  then  j 

do : 

If  make  5 255  then  J 

oa 1 1 error < ’ me  ' ' : 

end : 

endaetiip#flle#extent; 
d lsk#open: procedure t 

declare  ( f I le  name  , buf  f . b I k?«  ize  ) address. 

( 1 . J t by te . 
char  based  buff  byte: 
lnc*J : procedure  byte: 

return  < J :=  J - 1 1 : 

end  lnc#J : 

prtfadd r - mBsktra): 
ca 1 1 popSs  tack; 

b lk«s  ize  - ara : • 

ca I I popls tack: 

buff  - mas  k( ra ) : i 

ca I 1 pop*e  tack:  j 

buff  = buff  - char:  J 

f I lenddr . pr tie# try  - rn : j 

buf  fer  = rn  * 0:  j 

call  fill  ( ( f 1 lename  : 1 ra  + 1 ) . ' * , 1 1 ) : | 

If  c ha r < 2 ) - ' : " t he n 

do : ; 

bra  - (chart  1)  and  Ofh)  - 1:  \ 

I * c ha  r - 2 : 1 

buff  = buff  + 2: 
end: 
else 

1 = char : 

If  1 > 12  then 

l = 12 : 

buff  * buff  ♦ 1: 
j * 255: 

do  while  ( chart  lnct.1 ) <>  and  ( J < 8)  : 

end : , 

call  mo ve  (buff, file uatne.j': 

If  l > IncSj  then 

call  move  (.  chart  j >.  f I l-*uome*8.  1-j  ) : i 

call  ae  tuplf I lrlextcnt : 
ara  t 19  > - <1 : 

arat  18)  3 rn  * 256:  1 

arat 17)  - blkCslze; 
ra  - ra  168: 
end  d leklopen: 

se lleoflp tack: procedure : 
eofra  * ra : 
eofrb  - rb: 
end  se tl*o f #s tack: 

ae  tnpfd lek# lo : procedure : 
call  se t#f 1 !e*addr : 
call  se t#f I leipo 1 n t era : 
bytea*wr I t ten  - 8: 
r I rs  t f le  Id  - true  : 
end  se t uptd 1 « kS lo t 

random##*  tup:  procedure: 

declare  bytecount  address. 

record  address, 
exten  t byte : 

If  not  varfh  lock##  ir.o  then 
call  error*  " rtt'  ) : 
ara  - ara  - I ; 
ca  I 1 ae  t#rnndoin#mod«>  : 
call  »« t#bu f f or# i nnc t I v« : 
call  *nr  1 ledd  i «k3  i f*ro  .j: 
bytecount  - blocks  iz-  r .'co  : 

recordpoinier-lbjt  coiinton’Tfh'  *bufr"r-l: 

j 


!! 

I'/ 


r, 

it 

■; 

|| 

il 

.1 

i 

j 


call  !*(»r»lr#clplp; 
record  - shr ( by tecoun t , 7) ; 
extent  ~ shrt record . 7) ; 

If  extent  ■- > fcb<  12>  th»M 
do  : 

if  close  - 233  then 
ca 1 I error!  ' ce  ' ) ; 
fcb(  12)  * exten  f ! 

• •all  *e tupSf 1 le Sex  tent : , 

end  ; 

fcb<32)  1 low( record)  and  7fh; 
call  popSs tack i 
end  randoraSee t up i 

ge  tSd  IskScliar  : procedure  bytet 
If  a toondSd iskSbuf fer  then 
do  : 

call  wr  l te®d  le  kS  t f Sre  .j; 
call  f 1 HSf 1 teSbuf fer : 
e nd  : 

If  not  ac t 1 veSbuf fer  then 
call  f 1 l l*f  1 leSbuf  fer: 

If  ne\td Iskchar  = eoffll!*c  then 
call  d iskSeo  f I 
return  ne  x t d lake  har  ; 
end  ge tSd IskSc har : 

d IskSc lose : procedure ; 

call  ee  tSf  l leSpo  inters  : 
call  ht  l te*d  IskSl  fSreri; 
prtSaddr  * mask(ra); 

If  c lose  = 233  then 
ca  1 I error < ' ce  ' ) s 
prtSeutry  * <t: 
end  d l»ktc lose : 


c 1 eorfpr in  tSbuf  f : procedure ; 

call  f 1 1 1 ( ( pr In t buf f e r ■-  pr Intbnf fer loc ' , ’ ’,72); 

end  c learSpr lutSbuf f ; 

dumpSpr IntSbuff: procedure; 

declare  temp  address, 

char  baaed  temp  r-yte: 
temp  * pr lntbuf fend ; 
do  whl le  char  - ' : 

temp  ' temp  - 1 : 

e nd  ; 

call  c r I f ; 

do  prlntbuffer  - pr I n t buf f or loc  to  temp; 
call  pr  t n t c har  < pr  i n t pc.s  ) ; 
end  ; 

call  c learSpr intSbuf f ; 
end  dumpSpr l utSbuf f ; 

InadSpr IntSbufftprocedurelchnr) : 
declare  char  byte; 
prlntpoa  = char; 

l f<  pr  lntbuf  f »r  prlntbuff»r  + I ) > 

pr 1 nf buf f end  then 
call  dumpSpr  1 n t Shuf  T : 
end  londSpr  i n t Sb;i  f f ; 


not pnttproced or eldest, char'  ; 
declare  deet  byte, 
char  byt»; 


If  dost  - console  th“n 

cn  I 1 pr  1 ;i  t Sc  har  < •' har  ) : 

« Ise 

call  wr  i t c Snlhy  te',-!iar'  : 

» nd  output; 


to  console  * 
■ to  disk  v 


1 

i 

i 

1 


wr  t * pr''i'«*tlun»f 


r 


ided»r<!  source  address. 

nun  byte, 

j mimSdigits  byte, 

j rhar  byte. 

Indax  byte, 

' dea t byte , 

lj  count  byte; 

s foregone : procedure  < 

if  (twitch  - not  switch*  then 
do  : 

char  * ahr(  h®by te . 4 > or  '0’s 
if  (connt30)  and  (eliar3’0'>  thou: 
e lee 

call  on  t pu  t ( des  t , c lie  v > ; 
end ; 
e l«e 
do  : 

call  output  ( des  t . ' ’;3by  te  and  0 f h * or  ' 0 ' ) t 
ho  Id  = ho  Id  It 
end  t 

count  - count  +•  It 
end  alor»fonci 

ho  Id  * source  s 
sign  = h®by te  < 1 ) s 
IT  sign  or  OOh  then 

call  outputt d«a t , ’ ’ ) ; 

else  call  o it  t pu  t ( dee  t , ‘ - 1 > : 
count  3 0; 

hold  5 hold  - h#byte; 
numSdigits  3 hSbyte  * 2; 
hold  3 hold  + It 
nun  3 nunjJdlglts  - h*byt»: 

»wl tch  3 false! 

hold  1 ho  1 4 + 1 : 

do  Index  3 1 to  nnmSd ig l ts-  1 ! 

If  count  3 nun  then 
do  i 

call  ontputt dee t ' : 
count  3 100! 

end  : 
e lee 

call  atoreionc; 

end  : 

end  wrltegdeci 

wrlte®str:procedure(hold.dest ' : 
declare  hold  addrees. 

h based  hold  bvte. 
des  t byte . 

Index  byte: 
ho  Id  3 ho  Id  - h: 

do  Index  3 l to  h: 

call  output ( des t , hi  index) ) : 
end  i 

end  wr l t e • s t r : 

wr  1 te®  l n t ■ procedure ( va  I ite  , dee  ' '<  ; 

declare  value  address,  i bite,  count  byte: 
declare  declnt(3)  address  i u i M a l < I WOOD  . 1 00*) . 1 00 ,10,1); 
declare  ( f 1 a g , d e * t > byte: 
sign  3 c heck® I n t ®a lgn< vn l u- • : 

If  si  gn  3 nc ga  t 1 ve  then 
do  i 

value  3 -value  and  0bfff'i:  ■ mask  .Tf  next  to  left  bit 
call  out  put C des t . ' - ' ' : 

end  i 

else  call  culpuK  d»s  I . ' 1 : 

f 1 ag  3 f a 1 se  i 
do  I 3 0 to  4: 

count  3 (10h: 

d<>  wh  Me  value  ’ 3 i :i  1 • i ' : 

va  I lip  3 vn  I ue  - I in"  ' "■  • : 


I 


i 

i 


f 1 ag~ true r 
conn t 3 co  un  t + 1 i 
end : 

If  fins’  or  (1  >3  4>  then 
call  output  ( des  t . c<’  iut>: 
e 1 « e 

call  o tt  t putt  dee  t . 

end  t 

end  wr  l t e * 1 n t : 

wr 1 te* to»d Isk: procedure < typo) ; 

/%  type  0- Integer  . type  l-do? ima 1 . type  2-string  */ 
declare  type  byte; 

If  type  * 0 then 

call  wr i te®  1 n t ( ara  . 1 > : 


1 f t ype  = I t he  n 

call  w r 1 t e®dec  (are.  1 > ; 


If  not  flrstfleld  then  /~*  separate  fields  with  commas  */ 
call  wr 1 tedadbytef ' . ' ) : 
else  flrstfleld  - false; 

If  type  * 2 then 

do  ; 

call  wr  1 t e 9a  9b  y t e t quo  ) •> s : ' * stri  ngs  put  in  quo  tea  V..’ 

call  wr 1 teistrt  ara,  II  ; 

call  wr  1 telelbytei  quo  t add  trail!  ng  quo  tea 

end  ; 

call  popSstaek; 
end  wr  1 t e9 to9d 1 s k ; 


conca  tena  to : procedure ; 

declare  ( s ! ze  I , a 1 ze2 , t Ss  1 z« ' byte; 
temp  1 3 maskt  ra)  ; 
ca I l pop#s  tack: 

If  not  check*temp< arn ) flier 
do  : 

t e mp2  - maskt ra)  i 
temp2  = temp2  - t2; 

s ize2  3 t2  + It 
call  mo  ve  ( temp2 , ra  , s lr.e2'  ; 
end ; 
e Ise 
do  : 

a lze2  - bra  t 
ra  3 r*  - bra  t 
end  ; 

temp  I 3 temp  1 “ t 1 ; 
s l ze  l 3 t 1 ; 

call  mo  vet  temp  1+1 ,ra  + s izo2,s izel)  t 

(•size  = ■ Ize  1 + slze2; 

bra  - t*«  lz«  - 1 : 

ra  3 ra  + t0s  U»  : 

bra  3 tls  Ize : 

brat  1)  ~ 0c0ht  ■'*  set  forrp  bits 
end  concatenate; 


eottver  t®  to®  I nt  : procedure  f loc.«ize>  address: 

declare  dec  lull  U)  address  initial  t!  0000 , | t)O0  . tO0.  10,  1)  . 
I»c  address  . 
hold  address, 
li  bused  ho  Id  byt*-  . 
nun  address  , 


( 1 . J . s 1 z o ) 

nun  3 0 : 

J * 9: 

ho  14  - loc  * s 

If  ••  12^  ' 3 ? hon 

c « II  +*  r - '•m*  f ’ i ‘ 
*»  I *♦* 

1o  \ 

1 = ! to 


b y t «»  : 


I t 


\k\ 


\ 


* 1 7.(*  : 


nuo  = nun  + (h  - HOh'  * .^c  int(  j • = j-U  •. 
ho  i d = ho  l d - l ; 


on  ? ; 

if  nmn  * = then 

re  t urn  mm : 
else 

rail  error*  * 1 o ‘ : 

e nd  ; 

end  nonvertJtof ) at : 

one8  lef  t • pro«*p<d  tire  ; 
derlar*'  c tr  byte; 

1 f s hr  ibShyt«-tl).4)  “ 0 t n 
d O : 

•h  ctr  5 1 to  9; 

bSbytetotr)  = s li  W b 5 1»  r t e ^ t r i . 4 • • * r hr  ' b Sl>  y t e ( c t r * 1 
e nd  ; 
end  ; 

e l.-=e  noSshlft  - true; 
end  oneS  1“  f t ; 

oneir Ight : pr^e^dure : 
declare  ctr  byte. 

Index  byte; 
ctr  = 11; 

do  Index  2 1 to  10; 

ctr  = c t r — l ; 

blbyfpl  ctr'  - shr’  bibyt<»f  <?  tr)  . 4)  or  «»iiH  b#byt^(  r tr-  P . 4 

end  : 

end  one8rii*ht  : 

«hif  t$r  l^ht  : pr  i red ure( count)  ; 
declare* co unt, ctr)  byte; 
do  c tr  2 1 to  count ; 

call  onelr  i flrht  : 
end  ; 

end  shl  f t$r  \ ght  ; 

shiftSlef t ' procedure ( count  * ; 
declare  count  byte; 
nosh l f t = f a I s« \ 
do  c tr  - 1 to  count : 

call  one •left: 

If  no  s h i f t then 
re  1 urn ; 

end  i 

end  ehlft*left: 

lead!  nj^fc^eroe*  :procedure(addr>  byte: 
declare  count  byte, 
ctr  by te , 
add r address i 

count  - 

bane  - addr; 

do  ctr  = 1 to  9 i 

If  tb9byte(ctr)  and  Oroiji  ' ' 9 then 
re  t uru  c o un  t ; 
c o un  * = c o un  t *►  t ; 

If  * l«lbyt®(  ctr)  and  0fl»)  ^ t h*' n 

re  t urn  r n un  1 1 
count  = count  + 1 ; 

e r»d  ; 

l f base  = rd  then 
do  i 

rail  e rpor(  * At  ’ ) : 
b«byte‘9»  = I0h: 
de'  p tO  - It 
return  M*  ; 
e nd  ; 

re  t urn  ratio  t ; 
end  !f»tl  Infff'r.nroos  i 

r 1 •acre  a * ° v : pro.-  .*  <\  nr*  h y r » 


to 


declare  t i.ctr)  bytes 
do  ctr  = 1 to  9s 

If  r It  ctr)  > (1  :=  O'Jh-rOfclr))  ) then 
return  true; 

If  rl(ctr)  s 1 t hen 
re  t urn  fit  lee  : 

end  ; 

e*Ma<y  = true  s 
return  true; 
end  r lfgr>a ter : 

a 1 1 tgn:  procedure  s 

declaretx.y*  bytes 

r ljght*op : procedure  ( addr)  ; 
declare  addr  address; 

I f nos  til  f t then 

do  s 

base  - addr: 

call  shl  f tSr  l gilt  ( y : - r.  - ctr): 
end  ; 

end  r l(ght*ops 
y - 0 1 

If  decSptO  > dee»ptl  then 
do  : 

base  = . r 1 s 

call  shlft*left<x  - deeptfl  - decptl): 
decptl  - decptl  ctr-1: 
call  rlgbt*op( .rfl) i 
decpt0  - decptO  - ys 
end  s 
e lse 
do  i 

base  * .r0; 

call  shlftHlefttx  t*  decptl  ” decUptf)): 
dec p t0  * decpt0  + ctr-1; 
call  r 1 gh t ®op(  . r l ) I 
decptl  = decptl-  ys 
end  s 

end  a 1 1 1 ff n : 

add®r0: procedure ( second , des t ) s 

declare  (second,  dest)  address,  ( Indeg.cy  , a . b,  I ) byte- 

ho  Id  - second : 

base  - dents 

cy  = 0 s 

ctr  3 10t 

do  Index  - 1 to  It; 

a - r0<  ctr); 
b - h®byte( c tr) s 
1 - dec ( a * cy) ; 
cy  5 carry  and  1 ; 
l = dec!  1 + b)  ; 
cy  - 1 cy  or  carry)  and  1: 
bibytet  ctr)  * I ; 
r tr  3 ctr  - l s 
o ttd  •• 

If  r y t he  n 

do  s 

ctr  - 10s 

do  I nde X * 1 to  II; 

l = h*by t e < ctr); 

1 3 dee  t I ♦ cy)  i 
cy  - carry  and  1; 
bib  yte(ctr)  3 1; 

ctr  3 ctr  - Is 
end  : 
e nd  i 

"Tsd  tvld0r<*: 


I6it 


A 


<-  omp  I i r»t  * pr^r  «? nr<*  f numb  * : 
d«r  lar-‘  numb  hyto: 


do  case  numb i 
ho  Id  = . pOi 
ho  1 d - . p I : 

hold  1 • p2i 
end  i 

If  s tgn#0(  numb ) then  a ign0<  numb  ' 3 negative: 

else  s i gn#0( numb ) = positive; 

do  ctr  - 0 to  10: 

h#byte(etr)  - 99h  - ii#t>  y ;c-  ( c t p ) : 
end  i 

end  comp  1 iment ; 

p IghtSjus  t l f y:  procedure  ( numb  ' : 
declare  ( an mb . i ) byte: 
do  case  numb: 
base  3 . r0: 

base  - . r I ; 

base  3 -p2: 

end : 

1 - 0: 

do  wh  lie  ( ( ( i : = 1+2)  < ilecp‘<tf  nanb)  ) and  fb$bytef9130)); 

cal  1 ah  1 f t Sr  Iglit  ( 2)  ; 
end  : 

decpt0( numb)  3 dec p t 0< numb ) - 1 1-2): 

end  r lght#j us t 1 f y : 

ae  tSmul t#d It: procedure : 
no  shift  3 false: 

If  (si gnO  and  si gn 1 ) or 

(not  a lgn0  and  not  sign  l1  then 
a 1 gn2  = po  9 1 t 1 ve ; 
else  slgn2  - negative: 
call  fill  ( . r2,0.  10) : 
end  se t#mn 1 t#d 1 v: 

add0ser les : procedure ( couut 1 : 
declare  ( 1, count)  byt»: 
do  1 3 1 to  count: 

cull  add*rt>t  . r2.  . r2’  ; 

end : 

end  addfser  lei : 

multlply:procednre(value) : 
declare  value  byte: 

If  va 1 ue  ' > 0 then 
do  : 

If  noahlft  then 

call  error!  ' o v ' ) ; 
call  addlner lea ( va 1 ue ' : 
end  ; 

baae  - .r0: 
call  one# le  f l : 
end  multiply: 

d Ivlde : procedure : 

declare  ( 1 , j , k.  *,  1*0.  1* 1 ' byte: 
call  se tSnul ISd 1 v: 
s#f lag  3 true  : 
e#f lag  3 false: 

If  (1*0  lend tngf*eroc*‘  . rh'*  <> 

(1*1  : 3 lead  1 ngfzr  roes  < . r I 1 * then 
do  : 

if  1*0  > 1*1  then 

do  : 

bnse= . r0: 

coll  a h 1 f I S 1 e f : ( ; • = l ->0-  1 * 1 > : 
decpt0  3 dect>t0  ■*. 

* 3 1*1: 
end  : 
else 
d o : 

bas»  3 . r 1 : 

call  shlftSlofM  i -;  ;-|r:0*: 


W 


■MsuaSkSi 


1 


I 


dec*pt  1 s decpt  1 + | ; 

* 1 lz0; 

"itd  s 

end  i 

•1**  x - Izl: 

dec p t2  = 19  - x * decptl  - decptO; 
cal  1 comp  1 lment<0) : 
do  1 = x to  19 ; 

J 3 ®! 

do  while  r Ifgrea ter  and  r#f|ag: 
c«  1 1 addSrOf  . r 1 . . r I 1 : 

J s J + I: 

If  e®flagr  1 true  then  s*flag  - false- 
end  i 

k = shr  ( 1.1); 

If  1 t he  n 

r2(k)  = r2(  k)  or  J: 
else  r2<  k>  = r2<k)  or  shifj.4>; 
base  = . r0t 

call  oneSrlght; 
end  ; 

end  d 1 vide ; 

checktresn 1 t : procedure : 

If  r2  - 99h  then 
do : 

call  co  mp l I me  n t ( 2 ) : 

" 1*1)2  5 s ign2  xor  1: 
end  ; 
e Ise 

do  : 

IT  r2  <>0  then 

c« 1 1 error ( ' o v' > ; 

If  not  s S f 1 a g then 

• I gn2- pos 1 t l ve ! 

end  i 

end  checktresu  1 1 ; 

checkis lgn) procedure  ; 

■ •f lage  fa lae i 

If  slgu0  and  slgnl  then 

do  i 

• 1 |b3  5 po  a 1 t 1 ve  ; 
return; 
end ; 

s lgn2  * negative; 

If  not  a Ign0  and  not  slgnl  then 
do ; 

S*f lag1 true ; 
re  turn: 
end  t 

If  a lgn0  t hen  call  comp  1 I iter,  t ' 1 ) • 
else  call  comp  1 Imen t ( 0>  ; 
end  checkSslgn: 

add ) procedure : 

ca 1 1 checkts Ign: 
cn I 1 add*r0( . r 1 . . r2) t 
call  checkfreau 1 t ■ 
deep t2  » dec  p 1 0 : 
end  add: 

cpy*reg2»ona  tack: procedure : 
declare  count  byte, 

1 byte: 

call  r lght*.|us  t 1 fy<  2)  : 
ca 1 1 pop*s taok; 
count  « 0: 

base  * . r2 : 

1 1 10  - 'decpt2+l'  ’2; 
do  while  CbJbyte  * O)  ned  ' p. 

base  * base  + 1 ; 
count  * count*  l: 


1*^ 


1 


ends 

ra  * rb  + 2 s ! 

bra<0)  * (count  :*  10  - 
bra(l)  - dec*pt2t 
call  D0T>(bat*i  ra+2,conut ' ■ 
bra< eount+2)  = count*2: 

brd  (connt+3)  = algn2  or  «.;•)!>:  '*  t s inn  and  temp  bit*  r / 

ra  * ra  + count  ♦ 2: 
end  cpy#r«f2*on» tack; 

j-j  loadSreg:  procedure!  source  . reg^untn'  ; 

Sj  dec  lare  source  address  . 

■'  rratnun  byte. 

count  byte: 
bold  £ source: 

If  not  checkttemp!  h*nddr)  then 
hold  - mask!  bo  Id); 
aign0(reglauD)  * h*byte( 1) : 
hold  * hold  - h*byte: 

count  - bibyte; 
do  case  regdnum; 

base  = . r0:  i 

base  * . r 1 : j 

base  = .r2:  j 

end  i 

call  f ltKbase.0.  ID  : 
ho  Id  * ho  Id  * 1 : 

dec*pt0(  reg*nnid)  * h*hyte: 
ho  Id  - ho  1 d + 1 ; 

call  move!  ho  Id , base* 10-count . count) : 

. end  loadtreg: 

ae t*up*regs : procedure t 
noshl ft  a fa  lse i 
call  load*reg( ra , 0) s 

call  loadSreg! r b , I ) : j 

call  r lght*jus 1 1 f y(  0) : i 

call  right*just Ify! 1) : ; 

end  set*up*regs: 

stepSlnsScnt  t procedure! nun) ; 

dec  lare  nun  byte ; 
rc=rc+num; 
end  s tep* lna*cnt : 

li  branchlnboo  lute  : procedure  : 

call  step*  1 nafcnt  (Hi  I 

re*  t wobyteoprand  - 1: 
end  branchtabao lute: 


ge  t*code*addr : proceduref  offset’  address: 
declare  offaet  address; 
return  codebata  ♦ offset: 
end  ge t*code*addr t 

ge  t*pr  t*addr : procedure! offset’  address: 
declare  offset  address i 
return  pr those  ♦ offset; 
etuf  g«  t*pr  tVaddr  : 

loud: procedure! addr)  : 

declare  addr  address. 

a bused  addr  addr”".': 
prtSnddr  = mask!  addr*: 
a * prt*»ntryi 
end  load: 

store *dec- procedure ( so  arc e . d- < : • ; 

declare  (souree.deet.'lestSoiirn:  address. 

( aiutSs  to  . a va  1 1 *s  t <>  - ii “bytes'  byte, 
s based  ionrr»  add:’”'". 


d based  dest  address , 
deep  I byte, 

sign  bused  dest9oiirn  byte: 
if  c He c M t » mp ( S ) then 
tempi  4 source: 
else  tempi  - mask!  source  > : 
temp2=  mask*,  des  t ) : 
aval  lie  to  - t2  ~ 2; 
deetisign  4 temp2+lt 

t2(  I)  1 tit  It  and  91b:  /'*«rnskoff  temp  bits  re- 
source* ( temp  t : 4 temp  1 - 1 1 ) : 
des  t - temp2- 1 2 : 
amt 9a  to  - t 1 : 
dec  p t = 1 1 ( 1 ) : 

el»»byte*  4 ((amtfsto  * 2 - decpt)  + 1>  / 2: 
If  amtieto  ■=  aval  19s  to  then 
do  : 

call  f 1 I It  dee t , 90b. t2> : 
call  move ( source , des t . t 1+2) : 
end : 

e lee  If  s igibytes  <-  avallSsto  then 
do  i 

call  move  ( source . des t , t2> : 
temp2  - dest: 

1 2 - ava 1 lis  to : 

t2(  I)  4 ( ava  l lis  to  - slsf9bytes>  * 2: 

If  decpt  then 

t2(  1 ) 4 t2(  1 • + 1 : 

call  nrnlngl  'll'); 
end : 

e Ise 

do : 

hold  - deat: 

Ii9addr  4 eieiht 
U9byte(2>  4 19h: 
sign  4 positive: 
call  error! ' a I ' ) : 
end ; 

end  store9dec: 

s tore 9 Int t procedural des  t > va lue ) : 
declare  (dest, value)  address: 
pr t9addr=mask( del t ) : 
pr t9entry* va lue : 
end  atore91nt: 

s tore 9a tr • procedure( source , de«  t ‘ ; 
declare  ( des t , source ) address, 
s based  source  address, 
d based  dest  addr°ss; 

If  check9 tempt s ) then 
tempi  4 source: 
else  teeipl  4 mask(  source  ) : 
temp 2 4 mask!  dest); 
dest  4 temp2  - t2: 
source  * tempi  - tl: 

If  tl  <■ 4 t2  then 
do  t 

call  f i ll(dest,29h. t2> : 
call  mo  v«  ( source  . des  t . t 1 ) : 

end  t 
e lee 
do : 

call  mo  vs ( source , des t . 1 2» : 
call  warn lns<  ’ so  ' > : 
end  t 

end  storeSstr: 

a I loca  te9«  tr  '•  procedure  : 

If  bra  4 9 then 
do  : 

call  »rrtr( 'at' 1 : 
bra  4 tt)  i 


• nd  i 

call  puah#*  tnck(  bpa  : =braJ- 1 1 : 
bra  * brb; 
end  ■ 1 loca te*e tr : 

a l loca  te*d»c  ■ procedure  t 
declare  eloro  byte: 

I f bra  * 9 t he  n 
do ; 

call  error! ' as ' > : 
bra  - 
end ; 

ctr  3 brat 

a tore  3 ( bra+ 1 ) ^2+2 : 
call  pushSs t ac k(  * tore 1 : 
bra  - store; 
ara  3 are  or  O106h; 
end  a 1 loca te*dec : 

se t*up*a I loc : procedure  t 
pr tfaddr  = mask!  rail 
call  p<*p*s  took; 
end  se tSupSa I loc : 

f IndSrb : procedure  t 

if  checks  temp! ara ) then 
rb  * ra  - (bra  + 2) t 
e lee  rb  3 ra  - 2| 
e nd  f I nd*t-  b i 

savSpcb : procedure ; 

If  mo ve Sent  * f>  then 
re  turn: 

call  pushSa tackf 2) t 
call  iB->ve(  pcbptr , ra , moveScnt ) ; 
pc  bSva 1 ue ( 1 1 = rat 
ra  3 ra  + movement; 
ara  » movement; 
end  aavSpcbi 

nneave : procedure  t 

call  *o»e<  t empl > 3 ra-ara i he  Id , ara)  j 
ra  * t » i»p  I i 
e nd  una  a ve  : 

co IcSrow: procedure; 

declare  < Inde x. nun, v, ate Ize . type > byte, 

( nnnlarrayi , numtd im.alloctleu.count.i)  byte, 
d ( t(>)  byte ; 

type  3 brn  ; •'*  1-  1 n t . 2-dec  , 3-s  t r */ 
call  popSa  t ac  k; 
nunSarrays  * bra; 
cal  1 pops* lack; 
nutaSdlm  1 bra; 
call  pop** tack; 
y • •; 
aSa Ize  3 I : 
d < numSd im)  3 1 1 
If  num*d  Igi  3 1 then 

do  i 

atelze  3 bra  - brb  + 1; 
v * brbt 
ca  l 1 poptatack; 
call  f -<p*a  tack; 
end : 
e lee 

do  Index  3 1 to  nnmSdlmt 

I 3 nuiuSdiiti  - Index: 

a*s  ize  • e*a  Ize  * 1 uunt  : 3 bea  - brb  + i>: 

d ( i ’ 3 nun  * d < I * I 1 : 

v ~ v * brb  * df|e|): 
ca  I * pi-r-Se  tack  i 
call  pop**  tack: 


cad  I 

If  type  * int  then 

cell  pushSs taek( 2' : 

e lee 

allocSten  - br»: 
do  connt  - I to  nuinfarrays  : 
call  a tep* Inalc n t ( 1 > i 
bra  3 cl  I' ; 
bra(  1)  3 c and  3fh; 
prt*addr  - ara  ♦ prtSbas**: 

prtlcntry  3 ra  or  4<M)0h:  - '*■  cet  addr  bits  *s 
bra  3 nuotd Int 
1 f nuntd in  <)  1 t he n 

do  Index  : 1 to  nunAdim  - 1 
1 - numld In  - Index: 
ra  * r»  ♦ 1 ; 
bra  3 d<  1)  < 
end ; 

ra  3 ra  + 1 1 
bra  3 v: 
ra  3 ra  + 1 1 
bra  - a 1 locSlen; 

If  t ype  * Int  then 
do : 

bra  3 2: 
ra  3 ra  + 1 ; 
ho  Id  3 ra  : 

ra  = ra  + aflslze  * 2: 
hfaddr  3 ra: 
end : 
e lee 

If  type  3 dec  1 then 
do : 

bra  3 ( bra*  1 ) '2  + 4; 
ra  3 (hold  ■ - rn+l)  ♦ 2i 
bra  3 a 1 loci  lent 
do  Index  = 1 to  affstze; 

call  a 1 loca t oidec : 
call  push&s t nc k( 2 > ; 

bra  - ctr:  /*  reset  to  allocated  length  */ 
end  i 

call  peplatick: 
hSaddr  - ra ; 
end ; 

e lee 

1 f t ype  3 a t r t he  n 
do  i 

bra  3 bra  * 3: 
ra  3 (hold  •' 3 re  * 1>  + 2: 
hrn  3 a 1 tocS len; 
do  Index  3 I to  assize: 
call  a 1 loca t eSrt tr : 
call  puahts tar k< 2) : 
ara  3 arbi 
end  i 

ca  1 1 poptt tack: 
bftaddr  3 ra ; 
end  i 

call  s tep#  I mien  t ( I ' : 
endi  -/‘-count*/ 
end  calcirow: 


ca  lc*sub : procedure  i 

declare  arraytaddr  addr»so. 

location  cddr«cc . 
aSbyte  baeed  arr ny'oddr  byte, 
ataddr  based  a r rn  vC.nM  r address, 
( I . numlil  In)  by ' o , 
offset  a d d r » s « : 
arr*y0nddr  3 mnsk<rn): 
call  po  tack: 
offset  3 ara : 
nnmddim  3 njhytcs 


<lo  1 * 2 to  nnnSdlm; 
call  popts  tacki 
srray*addr  = array*addr  * 1; 

offset  - ar«  * a»byte  + offset; 
end  ; 

ar raytaddr  * array*addr  + l: 

offset  = (offset  - a«hyte-M  ■ * atbytetl); 

arr aySaddr  * arraytaddr  * 

If  ( looa  t Ion-’  =array«add r+o  f f*».j  t * > a*addr  then 

ca 1 l error ( ’ ab ' ) s 
ara  - location  or  40#Oh: 
end  c a I c *e  ub j 

dec re men t*b Ik- procedure!  num)  : 
declare  nura  byte! 

ra  * b lk<  ( b IMIeve  1 : *blk*leve  + 1 > : 

call  f IndSrb  t 
end  decrementVb 1 k: 

addS  1 at  : procedure  ( ll»  * 1 . I n 1 2 > address; 
declare  (lntl.lsf^  addr*s«; 
return  Inti  ♦ In.—, 

f nd  add# l n t ; 


aub*  Int:  procedtire(  Inti*  l n f 2 ' .iiMr^ss  ; 
4«c  Inr*  ( int  I , lnt2)  ; 

re  turn  inti  “ Int2: 
end  »ub® Int: 

reu !•  I n t ! procedure ( Inti.  !nt2)  addr»«4 s 
declare  <intl.int2)  address: 
return  Inti  * lnt2: 
e nd  ntu  IS  int  : 

d 1 vllnt : procedure ( Int l . Int2>  address : 
declare  ( Int 1 , int2)  address, 
re  turn  Inti  / lnt2i 
e nd  <1  I vf  Int: 


ex  1 1* In terp: procedure  I 
call  c r 1 f : 
call  mon3 : 
end  exl tSinterpt 

como  le4r<*ad  ! procedure  • 
ca 1 1 cr  1 f : 

call  pr l ntc har ( ' - ' ) ! 

^all  pr Intchart ' > ’ ) i 
call  prlntch«r('  ')» 
call  read ( . 1 npu  t buf f ar ’ ! 

If  buf ffts pace ( 1)  * coutz  then 
call  exl t# In terp i 
nontro.d  - buff •apace! 
conbuffptr  * .bnff*space; 
buf  ftspaoefbuf  f»space+n  = eolchart 
end  conao leSread t 

norofcont Input : procedure  byte; 

return  conbuffptr  < . bu  r r * - race  ( nuntread'i 

end  tiorolcnnl l npn t i 

coiux I e« Input terror : procedure ; 

rc  * rereadoddri  /*  reset  |.r-*ra«  counter  */ 
ca  l 1 warning  f ’ • 1 * > i 

tf  oto  errortexl  1 1 /*  return  t/»  outer  level  */ 
«nd  como  I «*#  I npn  tte rror  ; 

«te  tScontclinr  : procedure  byte; 

conbuffptr  = conbuffptr  * I; 
return  ■■onfehnr: 

»nd  xe  t tr  o ute  ha r i 


neictStnputSchBr'procedure  byt-»: 

If  lnputtype  = O then  /"  c'nd  from  <llnk  *' 
y"*  do  forever: 

If  l biiffSuparel  lupnt  in>Ux)  - ge  td  iskohnr ) * If  then 
do  ; 

If  varSb looks lae  H’.cn 
i-a  1 1 error!  ' re  ' > : 

end  : 
e Ise 

return  nextSd Is kSc hnr : 
end  *s \ 

If  InputStype  ~ 1 then  •'*  input  f rpm  console  xs 
return  gttlconlchari 
end  aeittlnputlr faari 

ge  tSf  le  Id  ' procedure  : 
declare  ho  Id  byte, 
d« 1 in  byte • 
f le  Id* length  - 0: 

do  while  'hold  ta  nextilnpntfchar)  1 * - 

e nd  : 

If  Input  type  1 0 then 

Inputplr  * . bafftspace: 

if  input  type  3 I then 

inputptr  3 eonbuffptr; 

If  ho  1 d < > <|uo  t e t he  u 
de  I I in  = ' : 

e Ise 
do  : 

de  1 l m a quo  te  : 
ho  Id  a a«xtllnpatlohiir  '. 
e nd  ; 

do  while  (hold  <>  de  l lm)  and  (hold  <>  tokhar)  { 
f le  Id*  length  3 f le  Id#  long  th  + 1: 

hold  = nex tS Input Sc har : 
end  : 

end  ore  t S f ; e I d t 

getSlntSfield:procedure: 
declare  sign  byte: 
call  ge tSf le Id  : 

If  Input Sc  bar  3 then 

do  i 

9 1 gn  3 1 I 

Inputptr  a Inputptr  ♦ 1: 
fioldSlength  3 f i o Id*  1 o ?ig  t h - 1: 
end  : 
e lee 

if  Input  Sc hnr  3 ' + ’ then 
do  : 

e i gn  3 0 : 

Inputptr  3 Inputptr  + 1: 
f le  IdS  length  - f I e 1 dS  1 «Migt  h - 1: 

end ; 

else 

a lgn  » 0: 

call  pushSa tncki 2) : 

ara  3 conver  tStoSlntl  l t»pu  1 p » r . TieldSle  nip  t h)  : 

If  errorSflng  then 

call  coneo I eS 1 npu tSe rro r : 

If  ft  1 gn  t he n 

ara  3 -are  and  0bfffhi  • set  nog  bit  end  ron»  to  near  in' 

end  getSlntSfietd: 

«fe  tSft  trSf  ie  Id  : procedure  : 
roll  gretSfieidi 
conSchir  3 f le Id# leng t h* t ; 
inputSptr  3 conbnffptr  - ■-i-tSflmr : 

InputSrhnr  3 f le  IdS  l»na  • it : 
call  pitehSe  tnckl  2)  : 
ara  3 eonbuffptr  or  400<1h: 
end  ge tSs trSf le Id : 


ge  (Idtclf  le  Id  •'  proceJur« 
call  getlfleldi 
call  pn»h*e  tack<2)  ! 

conic  bar  = t*i  ✓*  act  binary  0 an  end  of  dec 
If  lnpnt«char  * *♦*  then 
do  i 

a Ign  3 1 i 

inputpt r ■ Inputplr  + I: 

«nd  : 
a lae 

If  InputSchar  s *-’  then 
do  i 

sign  1 *i 

input ptr  5 Input ptr  + 1: 
end  ; 

e lde 

a ( gn  - 1 < 

call  pac  kWtc  lwal(  Inputptr.  ra)  : 

If  errirlf l»ff  then 

call  s o nao 1«S1 npu  tlerrnr: 
ra  2 ptrf t vo  1 ; 

bra<  t)  * *i(*n  or  0c0h:  S*  t sign  and  iorap  h ft  tff  */ 

<•  nd  g«  1 14 acSF  l e M j 

ini t la  1 izelexecute  J procedure : 

» tacktoi»s3330hi 
me d.  rc  5 co debase* 
mpr  3 prtbaaei 

st,  sb  2 stackl>ase; 
pa  5 ( rb  •-  3b)  + 2 1 
bldfffta?  s (nlwe; 

end  Ini t la  1 lzetexecute : 

/x«iet  up  machine*/ 

call  print!  . 'algo 1-m  Interpre ter-vers  1 . 0*  * ) : 

call  crlf: 

call  open* i nt*f 1 le i 

bld*flog  5 true*  t 

call  Incbuft  call  Incbufj  ✓ * skip  eodesize 
prtbaae  3 .memory! 
codebaae  3 getparm  + prtbaae : 
codeptr=codebaae * 

/*load  machine*/ 

do  while  nexttchar  <>  7fhs 
If  curchar  > 3 128  then 

do  i 

call  a tote har* 1 nc : 
call  Inc  but : 
call  a t o*c har* l nc i 
end  i 
e lae 

If  curchar  3 a tr  then 
do  t 

call  a to debar# Inc i 
tempi  = codeptri 

char  3 9s  /*  aet  Initial  length  to  zero  *' 
c a I 1 stolcharllnc ; 
do  while  nsullchar  ' ' 
call  stolcharllnci 
t 1 » t H-l  : 
end  ; 

c bar  3 t I ♦ 1 ; 

call  a to*cliar*  Inc  : ...  * 

char  3 9t  /*raua  t make  sir  lensrht  an  nl.lr  quantity  *' 
call  a tclehnrlUc  ; 
end  : 

e lae 

If  enrrhar  3 int  then 
d o : 

call  " tofehar* 1 nc : 


IV 


hold  * baff  + 1: 
fleldSlength  3 0: 
do  while  nextSehar  <>  Qt 

field*  length  - f le  IdS  t >*nsr  t h + I; 
sad  i 

S = c o nver  t S toS  1 n t ' ho  1 <1  . f ie  1 <i  S I e ns  t h.1  : 
eodeptr  - eodeptr  + 2: 

sad  t 

e lae 

If  curchar  3 dec  1 then 
do  i 

oall  a totchart Inc  I 
ca  I 1 litcbuf : 

call  packSdec  Imn  1 < buf  f , O i*'l  f*  p t r ) : 
eodeptr  3 ptrStwo  +■  1: 
buff  3 ptrSone  + 2; 

end  t 
else 
do  i 

call  s toSoltarS  Inc  : 

If  (curchar  - bra ‘ or  'curchar  3 hse  » then 
do  ; 

call  ge  t S t wo  Shy  t : 
a 3 a + codebaae; 
call  IncSoodep t rS t wo : 
end  t 

e lae 

If  (curchar  3 1ml)  or  (curchar  3 dcb>  then 
do  i 

ca  1 1 Incbuf ; 
cal!  a toScharS Inc i 
end : 

e lse 

If  curchar  3 I m2  then 
do  : 

call  Incbuf t 
call  a toScharS t no i 
ca  1 1 Incbuf ; 
call  a toScharS Inc : 
end  ; 
end : 

end ; 

stackJbase  3 codeptri 

start  of  interp  */ 

execute : procedure  j 
do  forever! 

If  roltc.ll  then  /*  mne t he  lit  or  ll*-lo’  *' 
do  i 

call  pnahSs tack( 2* : 

bra  3 c(  1)  i /■*  Imd  In  reverse  order  * ' 
bra(l)  3 c and  3 Pi;  ' w mask  fc > * a 10 
ara  3 (ara  + prtS(>as“*  or  400<>h.  •*  ret  01  addr  hi 

if  r o I ( c . 2 ) then  cnll  1 o a d ( r a 1 : 
call  a t e pS I ns  Sc  n t ‘ I 1 : 
end  t 

e lse 
do  case  c t 

/*  9 caae  9 no  t used*/- 


/*  1 etr  */ 
do  : 

call  pushS# t ac k' 2 ' ; 
call  s t e pS I n» Sc  a l < !• 
rc  - rc  ♦ c ♦ I : 
ara  3 rc  or  40OO|i: 
cnll  s te pS 1 ns Sc  n t < i 1 
end  : 


I 

) 

t 

; ✓*  2 tat  */ 

j do ; 

call  push*# tacki 2) : 
cal  I < lepIlnBlcnl I I 1 : 
ara  = t wo*by  te*e  prnml  : 

| calls  Icpi 1 nalcn t > 1 ' • 

end  i 

i ✓*  3 xch  *✓ 

do  ; 

ho  1*1  3 ara  i 
arn  - arks 
ark  - ho  Id i 
- nd  : 

/*  4 lod  */ 

ca 1 1 load! r«)  ; 

/*  5 deb  */ 
do  : 

call  s tep*  I ns  Sent ' 1 1 : 
call  dec  re me  n t # b Uo  c ' 
e nd  ; 

/*  6 dmp 

call  cr 1 f i 

/*  7 *1 1 

re  f urn : 

/*  8 aid  *✓ 

do  : 

call  aellnplalloci 
call  a 1 loca teSdec : 
prll»nlry:r«  or  4000b: 
end  i 

/*  9 a is  *✓ 
do  i 

call  se tlupla 1 loc s 
call  a 1 loca tela tr i 
prtl*ntryara  or  4000h: 
and  : 

✓ *10  aid  *✓ 
do  i 

call  se tfupta 1 loc t 
call  a 1 loca teldec i 
prll»nlryara  or  40©Oh: 
call  puah*s tac k( 2> : 
bra  * ctri 
end  i 

✓*11  ala  *✓ 
do  t 

call  se tiupla 1 loc ; 
call  a 1 loca te*s • r i 
prlt*!ntry:ra  or  400*111: 
call  pn.ihfs  tac  kf  2)  : 
ara  - arbi 
end  i 

✓*  12  ad  1 *✓ 

do  : 

call  se  ttuplnes; 
arb  3 add* 1 n t ( ar b . nr n i : 
call  c lieck*n«« : 
call  po  p*s  t n c k ; 
eud : 

✓*I3  odd  *✓ 

do  • 


in 


call  actlaplr"^:  -*  puts  values  of  top  two  Iters  ■'■ 

in  regi)  n no  rcgl  respective!-!. 

call  a I 1 I gn  : 
call  add  ; 

call  cpy#reg2Soiis  ta.  k: 
end ; 

s* 14  abl  *' 

do  ; 

call  9«  tfuplnoz: 
arb  - sub#  1 n t ( a r b . n’-n  1 : 
call  cltec  k#neg  ; 
ca  1 l po pis  tack: 
end  i 

/*  15  sbd 

do  ; 

call  sat§up#regs;  puts  values  of  top  two  i tens  *• 

in  regtl  and  regl  res  pec  t i v-  1 y:* 

call  a 1 1 I gn; 

call  comp  1 l me n t ( 0 > : 

If  s 1 g n0  t be  n si gnO  - no  ga  t iv« : 
e Ise  a ign0  - pos  lii™; 
call  add ; 

call  c pylr eg2*o no t ac k : 

» nd  : 

/*16  rap 1 * 

do  : 

call  setSuptneg: 

arb  - ran  HUt(  arb.ara)  : 

-all  checkSneg: 

■all  popls tack: 
e nd  : 

•'*  1 7 mpd  */ 
do  : 

call  set*up*reg«:  .-it  puts  values  of  top  two  Items  *- 
/*■  in  reg0  and  regl  respectively*- 
dec  lare  ( 1 , Index)  byte : 
call  se tfno I t#d l v; 
decpt2  = decpt0  + dvptl; 

1 * 10: 

do  index  - 1 to  10: 

ca  1 1 nul  t Ipl  y(  r 1 < i ••  - 1-1 ) and  0f  b*  : 
call  niu  1 t 1 p l y < s hr  < r 1 < 1).4)>: 
en  x ; 

call  c py*reg2*ons t ac k; 
end  t 


•-* 18  dvi 

do  : 

call  set#up#neg: 
arb  - d 1 v* lnttarb.arnt : 
call  checkfneg: 
call  pop#»  t ac  k: 
e nd  : 

y*19  dvd  */ 

do  t 

call  llaplrorn : ■"r  puts  values  of  top  two  Items  ~ 

in  regO  and  r»*l  respectively- 

call  divide: 

coll  c py*reg2#o  ns  t n>-  k . 


^nd  i 

--*20 

*y 

'*  no  t 

J 

/*21 

*/ 

'*  not 

U *«*«1  *' 

.1 


I 

I 


trn 


/*22  neg 

do  ! 

If  c he c kS  1 n t ( •ra>  then 

ara  = -ara  and  Obf'fb- 
else  If  o heckS tempi ara ■ than 

ara  = ara  xor  *change  sign  bit*/ 

e Ise 

dot 

ho  Id  = mask! rn i : 
hSaddr  - hgoddr  xor  OlOOh. 
e nd  i 

end  i 

/*23  ell*/ 

/*  not  Implemented  */ 


/*24  c 12  */ 

/*  not  Implemented  */ 

/*23  dec  I */ 
do  ; 

call  pnshSa tack( 2) : 
call  a t e pg 1 n#  gc  n t ( 1 1 : 
rc3rc  + c +•  2; 
ara  - rc  or  40#8h: 
call  ntAplinatcnt<  1 1 : 
end  ; 

'*26  pop  */ 

call  popgs  tack; 

S*27  I ml  */ 

do  i 

call  pnahSn tack< 2) : 
call  a teptlnaScn t ( 1)  : 
ara  = c ; 
end  ; 

/*28  1 m2  */ 

do  : 

call  pnshla tac k( 2) : 

• •nil  s t epg  inslcnt  < 1 ) i 

bra-cC 1) ; /*  load  in  reverse  */ 

bra  C 1 > - c t 

coll  s t epg I ns gen t f 1)  ; 
end  ; 

/*29  */ 

/*  not  used  */ 


/*30  ft/- 

/"*  no  t used  *' 


/*3 I cat  */ 

call  concatenate: 

*32  b I I */ 

hlktblkglev«|:*bl kg  I e » 1 + 1 1 = rn; 

/ *33  bid  */■ 

cal  I decremontgblkt  1 * ; 

'*34  brs  */ 

call  brn nchgnbno  I u t e ; 

'*33  bee  */ 


If  hrn  " 0 t n 
• a I I !-rnnr  li9:,b«<.  Into; 


r 


e lee 

do- 1 - 

call  s tep*lna»cnt< 2) 
call  poptatack; 
end  s 


✓*36  lae*/ 
do  l 

If  brb  < bra  then 
brb3 1 | 
else  brbs8; 
call  po  ptatacki 
end  s 


✓*37  dies  *✓ 

/%  not  Implemented  */ 


t 


/*38  s lss  *' 

/*  not  Implemented  *✓ 
t 

✓*34  gtr  *✓ 

do  ; 

If  brb  > bra  then 
brb3  1 i 
e lae  brb30 1 
ca 1 1 popta tack; 
end : 


/*4«  dgtr  *✓ 

/*  not  Implemented  *✓ 


✓*4 1 agtr  *✓ 

/*  not  Implemented  *✓ 


/*42  eql  *✓ 
do  ; 

If  brb  - bra  then 
brb3  1 1 
e lae  brb*0| 
call  poptatackf 
end ; 

✓*43  de<|l  */ 

/*  not  Implemented  *✓ 


✓*44  aeql  */ 

/*  not  Implemented  *✓ 


✓*48  nag  *✓ 
do  | 

I f brb.  < > bra  then 
brb  3 1; 
e lae  brb  3 01 
call'  poptetack; 
end  t 

✓*46  dneg  *✓ 

✓*  not  Implemented  *✓ 


l 


/<47  dneg  */* 

✓*  not  Implom-nted  *✓ 


« 


✓*48  ga  4 

do  i 

If  brb  > - bra  then 
brb  • It 
e(ae  brb  3 6; 
ca 1 1 popta I ack; 
end  i 

/*44  dgeq  */ 

/%  not  Implemented  *✓ 


/*34  egeq  *✓ 

/*  not  Implemented  *✓ 


180 


✓* 31  leq 

dot 

; if  brb  <*  bra  then 
brb  * 1 1 
• lae  brb  * 0i 
cal  1 pop#s  tack: 
«ndt 

/*52  dleij  */ 

/*  not  I mp  1 e two t ed  *✓ 

■ I 

✓*33  a leq  */ 

/*  no  t 1 mp 1 e me  n t e d *✓ 


✓*34 


0 then 
1 1 


Inot  */ 
do  i 

If  bra  * 
bra  3 
e lae  bra  - 0t 
end ; 

✓*S5  dnot  */ 

✓*  not  Implemented  */ 


i 


✓*56  (not  *✓ 

✓*  not  Implemented  *✓ 


✓*37 


land  *✓ 
do  t 

If  (bra30)  or  (brb=0) 
brb3  1 1 
e lae  brb  = 0s 
ca  1 1 popfa tack; 
end ; 

✓*38  daad  *✓ 

/*  not  Implemented  *✓ 


t he  n 


/*B9  sand  *✓ 

/*  not  Implemented  *✓ 


; 


✓*60  lor  *✓ 
do  i 

If  (bra=01  and  ( brb=0>  then 
brb*  1 1 
a' lae  brb*0i 
call  pop#a  tack: 
end  t 

/*«l  dor  *✓ 

✓*  not  Implemented  *✓ 


I 


✓*62  aor  */ 

/*  not  Implemented  *✓ 


✓ *63  wtc  */ 
do  i 

call  wr t te# in t ( ara . 0) : 
□ell  popta tack: 
end  : 


✓*64  wdc  *✓ 
dot 

if  choc k# tempt  ora ) then 
call  wrltofdeclra.ttt  : 

« lae 

call  wr  1 te#d»c t mar kt rn>  , 0) i 
ca 1 1 popSa  tack: 
end  t 


✓*63  mac  *✓ 

do  i 

If  check# t*mpt arn ) then 
call  write#* frt~. 1,0): 
e tee 

call  wr 1 t e#a t r< ma« kf r a ) . 0 > 


1 0 I 


| 


i 


A 


ca 1 t popSa tack: 
and  i 

wld  */ 

call  wr  1 te0te0d l*k(  0)  ; 

'*67  wdd  */ 

call  wrlte0to0dlak<l): 

s*6B  wad  */ 

Call  wr  1 teftofd lak(  2)  : 

'*69  abr  */ 
do  ? 

arb  - ara  - arb: 
ca  1 1 popta tack; 
end  t 

'*70  bra  *' 
do  ; 

rc  3 codetbase  + ara; 
ca  1 1 pop*s tack: 
end  t 

'*71  row  */ 

call  ca  Idrowi 

*72  anb  */ 

call  ca lcfaub t 

'*73  rc 1 *' 

call  go tC Int0f  le  Id ; 

'*74  red  *' 

call  go t0decftf le Id : 

'*79  rem  *' 

call  go t»a tr0f le Id ; 

'*70  rdl  */ 
do  i 

Input  typo  = 0; 
call  getClntSfteld: 
end  i 

'*77  rdd  *' 
do  i 

lnpu*type  - 0t 
call  go tfdecflf le Id : 
end ; 

'*78  rda  *' 
do  t 

Input  type  * 0; 
call  ge t0a trif  le  Id; 
end ; 

'*79  ren  *' 
do  i 

1 aput  t ype  a 1 ; 
reroadaddr  * rc  i 
call  conao leSrond t 
end : 

'*80  ecr  *' 

If  morefconS Inpu t then 

call  Congo  lei  1 npo  t l«pn)r ; 

| '*81  all  *'  f 

| do  i 

call  atore9lnt(  rl>,oro)  ; 
r b - r b - 2; 

* nd  ; 


•] 


( 

] 


'*82  ad  1 */ 

dot 

call  a toreddec ( ra . rb > ; 
rb  8 rb  - 2; 
end  t 

'*83  aa 1 *' 

dot 

cdll  s toreda t r( ra , r b > ; 
rb  * rb  - 2i 
e nd  t 


'*84  a Id  *' 

do  i 

call  »tort*lnt(  l-b.arfl)  : 
ca  1 1 pop#*  tacki 
call  popCatack;*' 
and  i 

'*85  add  *' 
do  ; 

call  jtoreMec(r»,rb)  ; 
call  pop#*  tacit; 
call  popSstacki 
end  ; 

'*86  a ad  *' 

do  i 

call  # tore#* tr ( ra , rb > t 
ca  1 1 pop#* tack; 
ca 1 I pop#* tack; 
and ; 

'*87  opn  *' 

call  d lsklopen; 

'*88  cla  *' 

do  ; 

call  aetdf lladaddri 
call  dlekdcloee: 
call  popdatack; 
end  i 

'*80  rdb  *' 

'*  ready  sequential  block  *' 
do  i 

call  ae tup#d l«k# lo ; 
call  ae t#ao f#a tack; 
end ; 


'*90  rdf  *' 

'*  ready  random  block  *' 
do  i 

call  eetupddtakdlot 
call  random#** tup t 
call  8a tdeo fde tack; 
end  i 

'*91  edr*' 

'*  and  of  record  for  read  *' 

'*  advance*  to  next  line  feed  *' 
do  i 

If  vardb lockda ize  then 

do  while  *e t#d isktchar  <>  If; 
» nd ; 

call  a toredrecdptr ; 
end ; 

'*92  edw  *' 

'*  end  of  record  for  write  *' 
do  ; 

If  vnr  db  toe  kd*  I z*  fhf'n 


( b looks Ize  - 2)  ; 


1 


do  While  by ttsiwr ! t ten  < 
cull  wr l tedadbyte  ( ' ’)j 

f&d| 

call  wl  tel»lkjrte(rr>  : 

Cali  wi*  1 t edadby te  ( If): 

Call1  a toredrecdptr ; 

' . »nd  j 

/WJ  pro  t/ 

• do  i 

a tacktop  * atacktop  - 2 ; 
re t daddr  * rc  ; 
rc  ■ ara  + codebase : 
call  popdatack: 
end  s 

/*94  akr  */ 
do  { 

declare  < l , nun)  byt*: 
pcbptr  2 naak(  m)  t 
ca 1 1 popda  tack: 
move Pent  - ara I 
call  po pda  tack; 

If  ara  <>  0 then 
do ; 

ho  Id  = ra  i 

counter  ® 2 * ara  + l; 
do  1 * 1 to  counter; 

call  pop&s  ta-'k: 

end ; 

nun  = hold  - ra  : 

If  (tempi  :=  atacktop  - num)  <=  ra  then 
call  error  ( ’ aio  ' ' ; 
call  mo ve < r a+2, tempi .num)  ; 
call  f l l 1 ( temp  1-2 , «H*h.  2)  ; 
end ; 
e lae 

call  popdstack: 

b lk(  blkleve  1 : = b Ik  le  ve  1-f  | ) sra  ; 

If  pcbdvalue(l)  = rt  then 
pebdva lue(  1 ) = I : 
e lae 

ca 1 1 savdpc  b ; 

end  i 

/*95  av2  */ 
do ; 

dec  lare  i byte , 

parmdeoun t addreaa; 
tad  1 = ra ; 
tad2  ■ rb; 

tad3, ra  2 atacktop  - 2; 
rb  - ra  - 2i 
parmdeoun t a ara; 
call  po pda  lack; 

pcbptr  = pcbptr  e 4 + parmdcoont  * 2t 
do  1 » 1 to  parigdeoun  t 
teatvalue  = ara; 
call  popdatacki 
If  teatvalue  = int  then 

call  a tored ln( ' . pebp t r , ara ) ; 
else 

If  teatvalue  - dec i then 

call  a ( o redd?  c < i*n  , pc  bp  t r ) : 

else 

call  a torode  »!-(  ra  . pebp  tr  i : 
ca I 1 popda  tack: 
pc )» p t r * pc  b p t r - 2 : 

end  ; 

ra  = tad  1 ; 
rb  * tnd2; 
tad!3  = 0; 
e nd  t 


• n-t 


/*96  ana  */ 

do ; 

ho  1*  3 maakt  ra) ; 
retPemlue  3 h#addr; 
cal  1 d«Cr*MnlS)>  Ik-1  l 1 1 
If  h*addr<  1)01  th-a 
ea  1 1 nnaave : 
elae 

h*addr ( I ) 3 **! 

call  decrementShlk'l-; 

call  puab9a  tackl  2>  s 
If  chacMIatlrfftfwliw'  then 
ara  3 re  t*vo 1 ue : 
e lae 
do  ; 

tempi  3 maak<  .r-'lSvnlue>  t 
call  move! tempi  ” tl.ra.tl+2): 
ra  3 ra  + t l : 
bra(l)  3 brat  1 1 or  OeOU; 

end ; 

end  ; 


✓ *97  rtn  */ 
do  i 

rc  *-retl»ddr; 
staoktop  3 stacktop  2: 
end  j 

end:  /*end  cane*'' 

call  step»ln**cnt(  1)  ; 

err«rff lag  3 false: 

end:  /’*  of  do  Tor  enr  *■' 

end  execute: 

ra Ini lne : 

call  crlf: 

call  1 n 1 1 la  1 lielexecnte t 

eofexl t : /*  on  end  of  file  of  current  disk  Tile  come  here  */ 

errorexlt:  / * regfroup  on  cou^olo  input  error  *-• 

cal  1 execute; 
call  axltSiftterp: 

eo  f ’ 
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